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COMMON MAGNETIC TAPE TEST PROGRAM DESCRIPTION 



1. PURPOSE OF TEST 

The Magnetic Tape Test Program tests the function of the Magnetic 
Tape and its associated interface. Special test and options are 
provided to enable measurement and isolation of a failure. This 
program also allows the testing of two devices at once. 



Test 

This test checks all data 
worst case data patterns. 

Test 1 



lines for correct data transfer with 
This test is mandatory. 



This test checks the ability of the device to write and read 

variable length records. The write-backspace-read feature is 

used with records varying in length from X'OO'-X'Ol' to X'OO'-X'FF' 

Test 2 

This test checks the rewind and skip functions of the device. 

Test 3 

This test checks all device functions under device interrupt. 
Proper interrupt reception, interrupt queuing, and interrupt 
disarm and disable functions are all tested. Read only, write 
EOF continuous, and other options are provided. (See Appendix F) . 

Test 4 

This test checks device overflow by write-long/read-short and 
write- short/read- long. 

Test 5 

This test checks the proper generation of Inter-Record Gaps. 
(Note that Prolonged repetition of this test may wear out the 
portion of the tape being used) . 

Test 6 

This test checks the Cylic Redundancy Check Character (CRC) . This 
test applies to 9-Track 8 00 bpi magnetic tapes only. 

Test 7 

This is a user utility test which provides compatibility read only 
check, scope loop and data pattern selection. The user can 
select the number of bytes per record, number of records per file, 
and number of files. A WEOF option is provided to write EOF marks 
to the end of tape. 
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2. REQUIREMENTS OF MACHINE UNDER TEST 

This program assumes that the programs listed below have been run 
without detecting an error. 

For 16-Bit Processor 

• Memory Test 

• Processor Test 

For 32-Bit Processor 

• Series 32 Processor Tests 

• Series 32 Memory Tests 

Other Test Programs 

• Common Teletype Basic Confidence Test 06-004 

• Common CRT Test 06-146 

• Common Line Printer Test 06-170 

• Common Current Loop Interface Test 06-184 

• Model-1100 CRT Test 06-217 

• Common Carousel 300 Test 06-183 

• Model-550 Terminal Test 06-243 

The magnetic tape must be mounted and the device placed 'ON-LINE*. 

75 IPS must be on DMA Bus, 1600 bpi (3 75 IPS should not be run in 
read block/write-block mode. 

Test 6 requires that the interface board be placed on an extender 
board. This allows hardware adjustments to be made to allow 
reading of CRC characters (see Section 5.1) 

3. MINIMUM HARDWARE REQUIRED 
Processor 

• Model 7/16 Basic or equivalent 

• Model 7/32 or equivalent 

Minimum Memory 

• 16K Bytes 

Console Input Device (See Appendix A) 

• Teletype or 

• CRT on PASLA/PALM or 

• Carousel 15, 35, 300, 
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List Device (See Appendix A) 

• Teletype 

•CRT on PASLA/PALM or 
•LINE PRINTER or 
•CAROUSEL 15, 35, 300 

Object Input device or Multimedia loader 

Device Under Test 

The following tape systems can be tested with this program: 



• 9-Track, 

• 9-Track, 

• 7-Track, 

• 9-Track, 

• 9-Track, 



800 bpi Magnetic Tape (M46-470) 45 

1600 bpi Magnetic Tape (M46-475) 45 

800 bpi Magnetic Tape (M46-474) 45 

800 bpi Magnetic Tape (M46-490) 75 

800/1600 bpi Magnetic Tape (M46-494) 75 



IPS 
IPS 
IPS 
IPS 
IPS 



Loading Procedure 

Manually enter the following X'50' sequence into memory: 

s 

LOCATION CONTENTS 



X'OOOO' 
X'OOOO' 
X'OOOO' 
X'0050' 
X'D500' 
X'OOCF' 
X'4300' 
X'0080' 





X'30' 




X'32' 




X'34' 




X'36' 




X'50' 




X'52' 




X'54' 




X'56' 


800 bpi Magnetic Tape 


X'78' 


Floppy Media Disc 


X'78' 


HSPTR/P 


X'78' 



X'85A1' 
X'C186' 
X'1399' 



4.1 Multi Media Diagonstic Loading 



To load this program from the Perkin-Elmer Multi Media Diagnostic 
System, refer to Publication Number 06-176A15. 

4.2 Program Execution 

Execute at X'30' and when the processor halts, observe the CHKSUM 
byte displayed on the console display register Dl (for processors 
with display panel); (otherwise, check register). If it is zero, 
loading is complete; otherwise, repeat the loading procedure. 

Refer to Appendix A and set up the addresses for the console 
input device and the bit device. 

Address memory location X'AOO' for a 32-Bit Processor. 
Address memory location X'A04' for a 16-Bit Processor. 
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start program execution. The following title is output to ttie 
list device : 

COMMON MAGNETIC TAPE TEST PROGRAM 06-172R03 

5.0 OPERATING PROCEDURES 

5.1 Normal Testing 

To execute default tests, enter the following via the console 
device: 

TEST fC 
RUN 

Tests 0, 1, 2, 3, 4, 5 are executed. 

If no failure- is detected, the list device output will be as 
shown in Appendix D, and the program returns to console mode 
after completion of Test 5. In the event of failures, refer to 
Section 5.3. 

To interrupt and terminate a test, the user can either depress 
the BREAK key on the console device or take the device under 
test OFF-LINE. When either condition is detected, the test 
terminates and returns to console input mode. When the device 
under test is put off-line (DU) , the message: 

DEVICE OFF-LINE 
DEV DDD STA SS 

is printed. It is recommended that the tape be terminated 
properly; therefore, the DU type of test termination should not 
be used. During scope loop with Write (SC0PE=1, 2 or 3), the DU 
termination method is not available. 

If a failure abnormally terminates the program, the program can 
be restarted at location X'A04' for 16-Bit Processors or X'AOO' 
for 32-Bit Processors. 

5.2 Optional Testing 

Normally, the tests write a data file of 256 records and each 
record contains 256 bytes (execpt for Test 2) . The number of 
records per file can be altered with option RECFIL. In tests 
2 and 7 , more than one file can be generated by option FILE and 
option BYTES can be used to vary the number of bytes per record 
in Tests 3 and 7 (see Appendix C) - Inter- record gaps separate 
records and EOF marks separate files. 

To select the mode of data transfer, option MODE must be 
specified. If MODE is entered, both modes 1 and 2 {see 
Appendix C) are run in Tests 0, 1, 3, 4, and 7 with SCOPE 0. In 
all other tests, MODE 2 is used. 
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To test two devices at the same time, the user can enter the 
second device address by option DV2ADR. For single device test- 
ing, set DV2ADR to zero; otherwise, each selected test is 
executed twice, once on each device. 

Each I/O device is assigned an interrupt level on the Model 8/32 
or Series 3200. This level must be entered via option INTLEV. 
The same level is used for the selector channel and both devices. 

Test 6 checks CRC generation. It can be executed only if the 
magnetic tape system is an 800 bpi 9-track system. The device 
interface board should be placed on an extender board to enable 
hardware adjustment. To execute Test 6, set option CRC and 
options DEVICE and TRACK to the appropriate value. When a file 
is generated on the tape, the message: 

ADD CRC CAPACITOR AND EXECUTE 

is printed on the list device and the processor is halted. Add a 
0.022 uf capacitor between test points 39 and 40 and a jumper 
between test points 35 and 38 so the CRC character can be read 
(Refer to 02-277D08 and 02-277E03) . To continue the test, depress 
the RUN button (or EXE) . The capacitor and jumper must be removed 
upon termination of the test; therefore, this test must be selected 
alone. 

Besides setting option CONTIN (see Appendix C) , the selected 
tests can be continuously looped by turning the console device 
OFF-LINE. Since Tests 6 and 7 require console I/O, they must not 
be selected. Test 3 is executed under interrupts, and the user 
can specify individual operations to be tested through options 
WRITE, READ, BKSPAC, WEOF , and SKIP (see Appendix C) . The test 
processes only one file, but the user can specify record length 
and file length through options BYTES and RECFIL (See Appendix C) . 
If read only (See Appendix F) is specified, the user must make 
sure that the file begins and ends with a file mark. If DU 
option is set, the message: 

TURN DEVICE OFF-LINE MOMENTARILY 

is printed. The device under tesst must be turned OFF-LINE within 
60 seconds after the message, but must not remain OFF-LINE for 
over 3 seconds. 

Test 7 provides user utility through options READ, WRITE, BKSPAC, 
and WEOF. The user can test individual operations (see Appendix 
F) . If the option DATA is set cind the selected operation includes 
the write function, the message;; 

ENTER DATA: 

is printed on the list device. The user can enter a string of 
up to 64 hexadecimal characters on the console input device. 
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Use CR to terminate the string and continue execution. If the 
buffer is full or 64 hexadecimal characters have been accepted, 
the test automatically continues. If only CR is entered after 
the message, the test generated buffer (256 bytes of data 
incremental from X'OO' to X'FF') is used. No more data is 
requested after the first pass if the test is looped. 

The user can also specify the number of files to be processed, 
the file length and record length through options FILES, RECFIL, 
and BYTES (see Appendix C) . For the read only (see Appendix F) 
operation the user must make sure that there is a leading file 
mark on the tape and each file is terminated by a file mark. 
Attempts must not be made to read more files than exist on the 
tape. 

Test 7 also provides scope loop option through option SCOPE (see 
Appendix C) . Scope loops run continuously with no error check 
until EOT or termination by BREAK or DU. 

SCOPE 1, 2, and 3 involve write operations (see Appendix C) . In 
order to properly terminate the tape, the DU method of termination 
is not available. To terminate the tape before EOT is detected, 
BREAK must be depressed on the console device. In this case, the 
test terminates the tape with a file mark. (SCOPE 3 writes and 
backspaces over the same portion of the tape continuouslv) . 

SCOPE 4 performs "read only" continuously until EOT. If EOF is 
detected, the test pauses with the message: 

EOF 

If CR is depressed on the console device, the test terminates. 
If LF is depressed, the test continues reading until EOR or the 
next EOF. This procedure prevents reading beyond the last EOF 
on the tape. Reading a blank tape beyond the last EOF mark may 
cause the entire tape to run off the feeding reel. 

SCOPE 5 performs skip EOF operation forward until EOT, and then 
skips reverse until BOT. It continues back and forth until 
terminated by BREAK or DU. It is recommended to fill the tape 
with EOF marks with the WEOF option, before performing this 
option. 

5.3 Error Procedure 
Error Recovery 

If an error is encountered which is considered recoverable, the 
program logs an error message and retires 5 times. If it fails 
after 5 times, the message: 

RECOVERY UNSUCCESSFUL 

is printed and the test proceeds. 
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Error Messages 

The three types of error messages logged are: 

Status Error: The following message is printed: 

ERROR XX YY 
DEV DDD STA SS 

where: XX = Test number 
YY = Error number 
DDD = Device number 
SS = Device status 

Data Error: The following message is printed: 

ERROR XXYY 
DEV DDD 

Spurious interrupt error: 

ERROR XXFN 
DEV DDD STA SS 
PSW PPPP LOG LLLL 

where: XX = Test number 

N = 1 for arithmetic (32-bit) or 

fixed point arithmetic (16-bit) fault interrupt 

2 for illegal instruction interrupt 

3 for machine malfunction interrupt 

4 for spurious interrupt from external device 

5 for relocation/protection (32-bit) or 
floating point divide fault (16-bit) interrupt 

6 for device interrupt into wrong interrupt level 

7 for data format fault (alignment fault) 

DDD & SS = interrupting device address and statue received 

in case of 4 above 
PPPP = current PSW when interrupt is sensed (least 

significant 16 bit for 32-bit M/C) 
LLLL = current location when interrupt is sensed 

(least significant 16 bits for 32-bit M/C) 

6. OTHER MESSAGES 

MODE N 

This message follows the error message for an error occuring 
during a data transfer. 

N = mode number (see Appendix C) 



DATA 


DATA 


WRITTEN 


READ 


AA 


BB 



This message is logged after data error #46. AA and BB are 
printed for each pair of unmatching data bytes. 

06-172M95A15 R03 6/79 



CRC CHAR = AA 

This message is printed in Test 6 after the first two CRC 
characters are read. 

CRC CHAR EXPT'D = AA,READ = BB 

This message is printed in Test 6 after error #48 is logged. AA 
and BB are the unmatching CRC characters. 

DEVICE OFF-LINE 
DEV DDD STA SS 

This message is printed whenever DU status is detected on the 
device under test. (see Section 5.1) 

EOT 

This message is printed whenever the test is terminated upon 
detection of EOT. 

EOF 

This message is printed upon detection of an EOF mark during read 
only scope loop. (see Section 5.2) 

TURN DEVICE OFF-LINE MOMENTARILY 
(See Section 5.2) 

ADD CRC CAPACITOR AND EXECUTE 
(See Section 5.2) 

ENTER DATA 
(See Section 5.2) 

7. Fault Isolation 

For error 00, make sure that the device address is correct and 
the device interface is properly seated. 

For NMTN errors (01 and 02) , the device may be running away or 
stuck in an illegal mode. Initialize the device and restart the 
program. 

Make certain that the tape used is good. If errors 10, 11, or 18 
occur, change the tape and run test with DUMP = 1. 

If a data error occurs, observe the erroneous data bytes printed 
to establish a pattern of failure. Test detects such data line 
failures. 

If error 16 occurs, repeat Test 4 with DUMP = 1 and observe the 
data read. Failure can be in the read delay timing circuit. 
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For interrupt failures in Test 3, repeat Tests 0, 1, and 2. If 
no error occurs in Tests 0, 1, and 2, the failure is only in the 
interrupt generation circuit. 

For other status errors, repeat the failing test with long files 
and records so each operation can be visually distinguished. 
Follow the program listing to determine exactly where the failure 
occurs. 

The program puts a delimiter at the end of the read buffer before 
each read operation. Error 4 7 indicates the delimiter was 
destroyed by the read. 

Scope loops can also be used to further isolate failures. 
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APPENDIX A 
USER DEVICE DEFINITION 



The halfword labeled '10' (see the Program Listing) has the 
default value for CRT on a PASLA interface as the input/ 
output console device. If the setup is different '10' 
must be changed as follows: 



10 








7 


8 




15 


Console Device 

Identifier 


List Device 
Identifier 



Console Device 
Identifier 



X'Ol' 

X'02' 

X'03' 
X'04' 

X'05' 

X'OO', X'06 
-X'FF' 



List Device 
Identifier 



X'Ol' 
X'02' 
X'03' 
X'04' 

X'05' 

X'OO' , X'06' 
-X'FF' 



Meaning 



GDT/CRT on PASLA/PALM interface, strapped for 
FDX operation and highest baud rate. 

TTY/GDT/CRT/Carousel 15/30 on Current Loop 
Interface 

Reserved. Interpreted as X'02' 

Carousel 300 on PASLA/PALM Interface, strapped 
for FDX operation and highest baud rate. 

Micro I/O Bus 

Reserved. Interpreted as X'02'. 



Meaning 



GDT/CRT on PASLA/PALM Interface, strapped for 
FDX operation and highest baud rate. 

TTY/GDT/CRT/Carousel 15/30 on Current Loop 
Interface. 

Line Printer (Data Printer or Centronics) 
on Line Printer Interface. 

Carousel 300 on PASLA/PALM Interface, strapped 
For FDX operation and highest baud rate. 

Micro I/O Bus 

Reserved. Interpreted as X'02'. 
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APPENDIX A (continued) 

1. The GDT, Terminals 550, HOO, 1200 or CRT, if used on PASLA/ 
PALM interface, should be strapped for device addresses X'lO' 
and X'll', for Receive and Transmit sides, respectively. If 
the addresses are different, then the half word labeled 
'PASLADR' (see the Program Listing) must be changed 
accordingly. 

2. The Teletype or Current Loop Interface, if used, should be 
strapped for device address X'02'. If the address is 
different, the halfword labels 'CLIFADR' (see the Program 
Listing) must be changed accordingly. 

3. The Line Printer, if used, should be strapped for device 
address X'62'. If the address is different, the halfword 
labeled 'LPADR' (see the Program Listing) must be changed 
accordingly - 

4. The Carousel 300, if used, should be strapped for device 
addresses X'lC and X'll', for Receive and Transmit sides 
respectively. If the addresses are different, the halfword 
labeled 'C300ADR' (see the Program Listing) must be changed 
accordingly. 

5. The Micro I/O Bus, if used, should be strapped for device 
address X'CO'. If the address is different, the halfword 
labeled MICROBUS (see the Program Listing) must be changed 
accordingly. 
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APPENDIX B 
COMMAND/OPTION INPUT METHOD 

An asterisk (*) is output to the console device to indicate that 
the program is waiting for user input. All option names must be 
typed in from the console followed by a space and the desired 
argument or arguments separated by commas. A carriage return CR 
must be typed to end every coimnand/option input. An invalid 
command/option name or option value causes a question mark (?) 
followed by a carriage return CR, line feed (LF) , and an asterisk 
(*) to be output.If, during command/option entry, an error is made, 
it can be handled in two ways . The hash mark (#) can be typed to 
delete the entire line. This causes a carriage return CR, line 
feed (LF) , and an asterisk (*) to be output. The left arrow (f— ) 
can be typed to delete the previous character: or a string of 
characters can be deleted by typing a left arrow (*• — ) for each 
character to be deleted. 
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APPENDIX C 
OPTIONS TABLE 



OPTION 


DEFAULT 


TESTS 


DESCRIPTION 


BKSPAC 


1 


3,7 


Selects backspace operation (see 
Note 3) 

= no backspace 

1 = perforin backspace 


BYTES 


X • FF • 


3,7 


Number of bytes per record 

Minimum = 2 

Maximum = X'400' (See Note 1) 


COMPAR 


1 


3,7 


Specifies data comparison 

= no compare 

1 - compare data 


CONTIN 





All 


Enables the selected tests to be 
executed continuously until 
interrupted. 

= normal execution 

1 = continuous execution 


CRC 





6 


Selects CRC check 

= no CRC check 

1 = perform CRC check 


DATA 


1 


7 


Specifies if external data 
pattern is to be requested. 

= use program generated data 
pattern 

1 = request for external data 
pattern 


DEVADR 


X'0085' 


All 


Specifies the physical device 
address of the device under test 
(must not be zero) 


DEVICE 





6 


Selects 800 or 1600 bpi magnetic 
tape. 

= 800 bpi drive 

1 = 1600 bpi drive 
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APPENDIX C, (Continued) 



OPTION 


DEFAULT 


TESTS 


DESCRIPTION 


DU 





3 


Tests DU interrupt 

= no DU interrupt 

1 = test DU interrupt 


DUMP 





0,1,3,4,7 


Specifies read buffer dump 

= no dump 

1 - dump data buffer 


DV2ADR 


X'OOOO' 


All 


Specifies the physical and device 
address for the 2nd device to be 
tested. (Must be zero if only 
one device is under test) . 


FILES 


1 


1,7 


Number of files to Write of Read 
Maximum = XMOO' (See Note 1) 


INTLEV 





3 


Specifies interrupt level of 
device (2) under test. The same 
level is assigned to both devices 
and SELCH. 


IRG 


X'lO" 


5 


Number of times of read and back- 
space to be performed in gap-data 
check 
Maximum = X'FF' (See Note 1) 


LOOP 





All 


Number of times the selected 
tests are to be repeated. 
Maximum = X ' FFFF ' . 


MODE 


2 


All 


Selects mode of operation 

= selects both modes 

1 = Read Block-Write Block 

2 = SELCH mode 

Note: Mode 1 can not be used on 
the following tape drives: 
1600 bpi, 45 IPS; 1600 bpi, 75 
IPS; 800 bpi, 75 IPS. 


NOMSG 





All 


Suppresses all messages except 
error messages. 

= all messages 

1 = only error messages 
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APPENDIX C, (Continued) 



OPTION 


DEFAULT 


TESTS 


DESCRIPTION 


OPTION 




All 


Lists all option values selected. 
(See Note 2) 


RDCRC 





6 


Specifies read CRC only 

= Write and Read CRC 

1 = Read CRC only 


READ 


1 


3,7 


Selects read operation 

= no read 

1 - perform read 


RECFIL 


X'lOO' 


All 


Number of records per file. 
Maximum = X'400' (See Note 1) 


REPEAT 


X'0003' 


2 


Number of skips to be performed. 
Maximum = X'FF' (See Note 1) 


RSTART 





All 


Relocates the starting address of 
Read Buffer (See Note 4) 


RUN 




All 


Starts Test. 


SCOPE 





7 


Specifies scope loop 

= no scope loop 

1 = Write-Backspace-Read 

2 = Write only 

3 = Write-Backspace (avoid) 

4 = Read only 

5 = Skip 


SELCH 


X'OOFO' 


All 


Specifies device address of 
selector channel. 


SKIP 


1 


3 


Selects skin operation (See Note 
3) 

= no skip 

1 - perform skip 


TEST 


0,1,2,3,4,5 


All 


Selects test or tests to be 
executed (see Appendix E) 
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APPENDIX C (Continued) 



OPTION 


DEFAULT 


TESTS 


DESCRIPTION 


CON 




All 


Gives control to CPU console. 
Legal only for series 16 & Series 
32 processors. 


TIMVAL 


X'140" 


All 


Defines a 1 ms time for different 
models. Subroutine Init 
multiplies TIMVAL by 10 to obtain 
a basic delay time unit of 10 ms. 
X'D2' for 7/16 Basic, Model 74, 
or equivalent 
X'14D' for 7/16 HSALU (750 ns 

memory) 
X'134' for 7/16 HSALU (1000 ns 

memory) 
X'14A' for 6/16 MOS 
X'14D' for 8/16 (750 ns Memory) 

and equivalent 
X'134' for 6/16 (1000 ns Memory) 

and equivalent 
X'EB' for 7/32 (750 ns Memory) 
X'D2' for 7/32 (1000 ns Memory) 
X'DA' for 8/32 

X'133' for Models 80, 85, and 60 
X'C8' for Models 70, 50, and 55 
X'260' for 3220 with CACHE 
X'1A4' for 3240 with CACHE 
X'14D' for Series 16 processors 


TRACK 


9 


All 


Defines number of tracks for the 

device. 

7 = seven track drive 

9 = nine track drive 


WEOF 





3,7 


Write EOF mark continuously until 
EOT (See Note 3) 

= Write/Read records 

1 = Write EOF only 


WRITE 


1 


3,7 


Selects write operation (See Note 
3) 

= no write 

1 = perform write 
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APPENDIX C (Continued) 



OPTION 


DEFAULT 


TESTS 


DESCRIPTION 


WSTART 





All 


Relocates the starting address of 
Write Buffer (See Note 4) 



NOTES 

1. Minimum is 1. If is entered, it is defaulted to 1. 

2. A page of 20 options is listed at a time on the list device. 
At the end of each full page, the LF key must be depressed to' 
continue listing the next page. If CR is depressed, the 
listing is terminated. The BREAK key is used to stop listing 
on any device. 

3. Also see Appendix F. 

4. If not entered, the Read buffer and Write buffer are defaulted 
to values within test program meimory. 

If RSTART or WSTART is entered, the relocated buffer is 
guarded against being located in the test program. If the 
user attempts to relocate the Read or Write buffers in the 
test program , one of the follovy^ing error messages is printed: 

ERROR: READ BUFFER IN TEST MEMORY 

or 

ERROR: WRITE BUFFER IN TEST MEMORY 

If the Read or Write buffers are relocated so that they overlap, 
an error message is printed as follows: 



ERROR ! 



READ BUFFER IN WRITE BUFFER 
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APPENDIX D 
Expected Result Table 



*TEST 
*RUN 
TEST 00 
NO ERROR 
TEST 01 
NO ERROR 
TEST 02 
NO ERROR 
TEST 03 
NO ERROR 
TEST 04 
NO ERROR 
TEST 05 
NO ERROR 
END OF TEST 



Approx. Time to run on a 
7/16 BASIC with Default 
Options using a 45 IPS/800BPI 
MAG TAPE UNIT. 



4.5 min. 
0.75 min. 
1.25 min. 
1.75 min. 
1.7 5 min 
0.25 min 
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APPENDIX E 



ERR 



10 



11 



12 



13 



14 



EOF 



ET 



NMTN 



BSY 



EX 



EOM 



15 



DU 



STATUS, BYTE OF MAGNETIC TAPE CONTROLLER 



ERROR TABLE 



ERROR 


TEST 


NUMBER 


APPLICABLE 


00 


All 


01 


All 


02 


All 



04 
05 

06 

07 

08 

09 

10 
11 

12 



All 
All 

0,2,6 

0,2,3,5 

0,1,2,3,4,5,7 

2,3 

All 
All 
0,1,2,4,5,6,7 



13 0,1,2,4,5,6,7 



DESCRIPTION 

SELCH (ESELCH) or Magnetic Tape Drive 
device address does not return SYNC. 

NMTN bit does not set within given time 
limit. 

NMTN bit does not set after a REWIND 
operation. 

EOM bit does not set within given time 
limit. 

EOF bit does not set or EX and ERR bits 
set after a WRITE-END-OF-FILE-MARK 
operation. 

EOF bit does not set or EX and ERR bits 
set after a READ operation. 

EOF bit does not set or EX and ERR bits 
set after a skip and backspace operation. 

EX bit sets after a BACKSPACE-RECORD 
operation. 

ET bit does not set after completing 
REWIND operation. 

EX bit sets after a WRITE-RECORD operation, 

EX bit sets after a READ-RECORD operation. 

DU, EX, BSY, EOM bit(s) set after a READ- 
BLOCK COMMAND (WB OR WBR) . 

DU, EX, BSY, EOM bit(s) set after a READ- 
BLOCK COMMAND (RB or RBR) . 
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APPENDIX E, (Continued) 

ERROR TEST 

NUMBER APPLICABLE DESCRIPTION 

14 0,1,2,4,5,6,7 Terminating address of data transfer 

through SELCH (ESELCH) is not equal to the 
expected value (WRITE Mode) . 

15 0,1,2,4,5,6,7 Terminating address of data transfer 

through SELCH (ESELCH) is not equal to 
the expected value (READ Mode) . 

16 4 No error is detected when reading a 

written record with inaccurate record 
size. 

17 4 ERR bit does not set after read of only 

part of a written record. 

18 4 ERR bit does not set after reading a 

written record of over-size record 
length. 

19 5 Tape does not stop at expected position 

after a BACKSPACE-RECORD operation. 

20 3 No interrupt generated after a REWIND 

operation. 

21 3 No interrupt generated after a WRITE- 

END-OF-FILE-MARK operation. 

22 3 No interrupt generated when EOM and 

NMTN bits set. 

23 3 No interrupt generated when NMTN bit 

sets after a WRITE-END-OF-FILE-MARK 
operation. 

24 3 No interrupt generated after a BACK- 

SPACE-FILE operation. 

25 3 No interrupt generated after a BACK- 

SPACE-RECORD operation. 

26 3 No interrupt generated after a WRITE- 

BLOCK operation (WB or WBR) . 

27 3 No interrupt generated after a READ- 

BLOCK operation (RB or RBR) . 

28 3 No interrupt generated after data 

transfer through SELCH (ESELCH) 
terminates, in write mode. 
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APPENDIX E, (Continued) 



ERROR TEST 

NUMBER APPLICABLE DESCRIPTION 



29 



46 


0,1,2,3,4,5,7 


47 


0,1,2,3,4,5,7 


48 


6 


50 


All 


51 


6 



No interupt generated after data 
transfer through SELCH (ESELCH) 
terminates t in read mode. 



3 3 No interrupt generated after SKIP- 

FILE-FORWARD operation. 

31 3 No interrupt generated after SKIP- 

FILE-REVERSE operation. 

32 3 No interrupt generated when tape drive 

is turned OFF-LINE. 

33 3 DU bit does not set after tape drive 

is turned OFF-LINE. 

34 3 No interrupt generated when tape drive 

is turned ON-LINE. 

35 3 DU bit does not reset after tape drive 

is turned ON-LINE. 

37 3 Interrupt cannot be queued while NMTN 

bit changes from to 1 with magnetic 
tape drive interrupt enable and PSW 
changes from '7OF0' to 30F0'. 

38 3 Interrupt generated after issuing DIS- 

ARM command to magnetic tape drive . 

39 3 Interrupt generated after issuing DIS- 

ABLE command to magnetic tape drive. 

Read buffer does not match with write 

buffer. 

Delimiter between read and write buffer 
is not equal to expected value. 

CRC parity check error. 

Write protect sets. 

CRC checkword of zero expected. 



06-172M95A15 R03 6/79 E-3/E-4 



o 

'^ TEST 3 



to 

S 

> 

o 
u 

cr» 
\ 



APPENDIX F 
Optional Testing Table 



"\functions 




















WRITE 


WRITE 


^\^ 


write 








WRITE 


WRITE 






WRITE 


BACKSPACE 


REWIND 


^x. 


EOF 


WRITE 


READ 


WRITE 


BACKSPACE 


REWIND 


WRITE 


READ 


BACKSPACE 


READ 


READ 


options ^\ 


CONTINUOUS 


ONLY 


ONLY 


BACKSPACE 


READ 


READ 


SKIP 


SKIP 


SKIP 


SKIP 


SKIP 


write 


X 


X 





X 


1 


1 


X 





X 


1 


1 


READ 


X 





1 





1 


1 





1 





1 


1 


WEOF 


1 





X 














X 











BKSPAC 


X 





X 


1 


1 








X 


1 


1 





SKIP 


X 

















1 


1 


1 


1 


1 



TEST 7 














^""~— --....^UNCTIONS 
OPTIONS ^"""-■"*-— -^ 


WRITE EOF * 
CONTINUOUS 


WRITE 
ONLY 


READ 
ONLY 


WRITE 
BACKSPACE 


WRITE 
BACKSPACE 
READ 


WRITE 
SKIP REVERSE 
READ 


WRITE 


X 


X 





X 


1 


1 


READ 


X 





1 





1 


1 


WEOF 


1 





X 











BKSPAC 


X 





X 


1 


1 






* No error check for write EOF continuous in Test 7 (Scope check) 

M To obtain the desired function, each option specified on the left must be set to the value shown in 
I the function column (note that an 'X' indicates that the option may be either '0' or '1'). 



I 

to 



APPENDIX G 
Related Documents 



Test Program Listing 06-172M96R02 

Test Program Paper Tape 06-J72M17R02 
Magnetic Tape System Instruction Manuals 

9-Track, 800 bpi M46-470 29-503 

9-Track, 1600 bpi M46-475 29-503 

7-Track, 800 bpi M46-474 29-295 

9-Track, 800 bpi M46-490 29-503 

9-Track, 800/1600 bpi M46-494 29-503 
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PROG= CMT172 ASSEMBLED BT CAL 03-066R07-00 (32-BIT) 
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2 
3 
t 
5 
6 
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8 
9 
10 
11 
12 
13 
1« 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
3« 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 
50 
51 
52 
53 



CHT172 PBOG COMMON MAGNETIC TAPE TEST PROGFA» 05-172R03A13 
HIDTH 120 
CROSS 
NLSTC 
ERL3T 



**************************************************************** 

COPYRIGHT BT PERKIS ELMER CORPORATION MAY 1979 * 

* 

COMMON MAGNETIC TEST PROGRAM 05-172R03 * 

PROGRAM OSES THE COMMON INSTRUCTION ST * 

* 

THIS PROGRAM TESTS THE MAGNETIC TAPE SYSTEM, AND THE * 

ASSOCIATED INTERFACES » 

THE PROGRAM CONSISTS OF 8 TESTS, MITH TEST 7 BtING * 

THE UTILIir TEST PROVIDING SCOPE LOOP. * 

THERE ARE 29 OPTIONS AVAILABLE TO THE 'JSER AND 51 * 

ERROR MESSAGES TO ENABLE ISOLATION OF A MALFUNCTION * 

TO THE HARDWARE LEVEL. ERfiOfi RECOVERY IS PROVIDED * 

FOP CERTAIN DATA TRANSFER ERRORS. • 

* 

THE PBQGRAM REOUIRES EITHER 7/16 BASIC OR EQUIVALENT * 

PROCESSOR, OR 7/32 OR EQUIVALENT PROCESSOR WITH 15K * 

BITES OF MEMORY. OPTIONS AND RUN COMMAND ARE TO BE * 

ENTERED VIA A CONSOLE DEVICE. EITHER ONE OB TWO • 

DEVICES CAN BE TESTED AT THE SAME TIKE. * 

* 

THE 06-172JT17 TAPE IS ftN RBSQLUTE TAPF WITH A FRONT- * 
END BOOT LOADER * 

TEST * 

TESTS ALL DATA LINES FOR CORRECT DATA TRANSFER WITH * 
WORST CASE DATA PATTERNS. THIS TEST IS MANDATORY, * 
AND IS EXECUTED AT LEAST ONCE. ♦ 

* 
TEST 1 ♦ 

TESTS THE ABILITY OF THE DEVICE TO 'JRirE hl{» REAL ♦ 
VARIABLE LENGTH RECORDS. • 

* 
TEST 2 • 

TESTS THE REWIND AND SKIP FUHCTIO"i OF THE DEVICE * 

* 
TEST 3 * 

TESTS ALL DEVICE FUNCTIONS UNDER DEVICE INTERRUPT. * 
PROPER INTERRUPT RECEPTION, INTERRUPT QUEUING AND * 
INTERRUPT DISARM t DISABLE FUNCTIONS ^=E ALL CHECKED. * 

* 
TEST It • 

THIS TEST IS DESIGNED TO TEST DEVICE OVERFLOW BY ♦ 
WRITE-LONG READ-SHORT AND WRITE SHORT ?EAD LONG * 



C1T00010 
CMT00030 
C!'T00040 
CKT00050 
CMT00060 
CMT00070 
CMT00080 
CNT00090 
CMT00100 
CMT00110 
CMT00120 
CKTD0130 
CMT00140 
CMT00150 
CMTOOieO 
CMI00170 
CMT00180 
CMT00190 
CMT00200 
CST00210 
CMT00220 
CMT00230 
CMT00240 
C«T00250 
CMT00260 
C.1T00270 
CMT0Q280 
CMT00290 
CMT00300 
CMT00310 
CMT0O320 
CMT00330 
CMT00340 
CMT00350 
CMT00360 
CMT00370 
CMT00380 
CMT00390 
CMT00400 
CMTOOmO 
C^T00420 
CHT00430 
CXT00440 
CMT00450 
CMT00460 
CMT00470 
CMT0O1480 
C.MT00490 
CMT00500 
CMT00510 
CMT00520 
CMT00530 
CMT00540 
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0000 


0000 


0000 


0001 


ooco 


0002 


0000 


0003 


0000 


ooou 


0000 


0005 


0000 


0006 


0000 


0007 


0000 


0008 


0000 


0009 


0000 


QOOA 


0000 


OOOB 


0000 


OOOC 


0000 


OOOD 


0000 


OOOE 


0000 


OOOE 


0000 


OOOF 


0000 


OOOF 


0000 


OOOU 


0000 


0005 


0000 


0006 


0000 


0007 



OOOOR 






0080 


2tt21 




0082 


2303 




009i» 


3FC0 




0036 


3F08 




0088 


C8 10 


OAOO 


003C 


C8 30 


363A 


0090 


ao3o 


0022 



SO 
55 
56 

57 
58 
59 
60 
61 
62 
63 
6« 
65 
66 
67 
68 
69 
70 
71 
72 
73 
7tt 
75 
76 
77 
78 
79 
80 
81 
82 
83 
BU 
85 
86 
87 
88 
89 
90 
91 
92 
93 
94 
9E 
96 
97 
98 
99 
100 
101 
102 
103 
104 
105 
106 
107 
103 



tEST 5 * 

THIS TEST CHECKS THE PROPER GESERATID1 OF ISTER-PECOBD • 
GAPS. (IIOTE; PHOLOHGED EEPETITIOH OF THIS TEST HAY * 

WEAR THE FRONT PORTIOS OF THE TAPE.) • 

* 

TEST 6 * 

THIS TEST CHECKS THE CICLIC REDUNDUNCY CHECK (CRC) * 

CHARACTER. * 

TEST 7 » 

THIS IS A USER UTIIITT TEST, PROVIDIS; COSPATISIIITY * 

READ OSLT CHECK, SCOPE LOOP AND DATA ?«TTK'BN • 

SELECTION. THE USER CAK SELECT NU«3EH OF BYTES PER * 

RECORD, NU1BE3 OF RECO'DS PER FILE ASj NyjIHEH OF • 

FILES A HEOF OPTION 13 PROVIDED TO irPITE EOF MARKS * 

TO THE END OF TAPE. ♦ 

* 

ANT COMBINATION OF THIS TESTS CAN ^E :SLECTED A3 A • 
STRIN" AND CAM 3E LOOPED OR RUN COST! -iUOUSLY . * 

* 



PI 

32 
R3 
Rit 
S5 
F6 
37 
P8 

ag 

RIO 

B11 

B12 

813 

314 

RET 

R15 

LINK 

CHAR 

STAT 

DEY 

SELCH 



EQU 
EOU 
EQa 
EQU 
EOO 
E3U 
E3U 
EQU 
EQU 
EQO 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 




1 
2 
3 

!| 

5 

6 

7 

3 

9 

10 

11 

12 

13 

1* 

M* 

15 

15 

a 

5 

6 

7 



BOOTLOADER WITH CHKSU.1 



BOOT 



ORG 


X'aO" 


LIS 


32,1 


BS 


BOOT 


DC 


Z(PSHSA¥E) 


DC 


Z(RSAVE) 


LHI 


R1,3RIGIN1 


LHI 


R3,LHZ3+1 


STH 


P3,X'22" 



CURRENT P3W SilVF POT NTtR ( 32-BTr H/C) 
REGISTER SAVE POINTER ( 32-BIT S/C) 
R1 = ADF{ FIRST BYTE OF TEST PROG ) 
E3 = ADR{ LfST NON-ZERO BYTE + 1 ) 
REGISTER S«.VE POISTEH <15-BIT «/C) 



CHT00550 
CHT00560 
Cf(T00570 
CHT00580 
CHT00590 
CNT00600 
C*T00610 
CMT00620 
CHT00630 
CnT006U0 
Cf1T00650 
Cf1T00660 
CI1T00670 
CKT006?0 
CMTOO^gO 
CnT0070U 
CMT00710 
CHT00720 
CHT0O730 
CNT0O7U0 
C!1T00750 
CHT00760 
CHT00770 
CHT00780 
CJ1T00790 
CHT00900 
CSTOOeiO 
CMT00820 

csTooeao 

CRT00810 
CKT00850 
CBT00860 
CNT0OS70 
CHT00830 
CHT00890 
CMT00900 
C.1T009 10 
CHT00920 
CHT00930 
CHT009U0 
CHT00950 
CHT00960 
CNT00970 
CHT00930 
CI1T00990 
CMI01000 
C.1T01010 
CMT01020 
CNT01030 
CNT010HO 
CMTO1O50 
CHT01060 
CHT01070 
C?1T01080 
Cf1T01090 
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009'* 


2731 




0096 


caeo 


0037 


009A 


D3itO 


0078 


009E 


DEUO 


0079 


00A2 


9Di(5 




00A4 


2091 




0OA6 


9R«5 




00A8 


08E5 




OOAA 


22311 




OOAC 


D251 


0000 


00 BO 


D3S1 


0000 


00B4 


0765 




00B6 


9U81 




0058 


9828 




OOBA 


gens 




00"8C 


2091 




OQBE 


9Pl»5 




OOCO 


C1 10 


OOAC 


OOC* 


9<»86 




00C6 


9828 




00C8 


2«78 




OOCA 


917C 




OOCC 


9557 




OOCE 


2203 





109 




SIS 


R3,1 


110 


«N 


LHI 


R6,X'37' 


111 




LB 


Rlt,X*78' 


112 




OC 


Ra,X'79' 


113 


LEADER 


SSR 


R4,R5 


114 




BTBS 


9,1 


115 




EDR 


Ra,s5 


116 




LDAB 


R5,R5 


117 




BZS 


LEADER 


118 


LOAD 


STB 


R5,0(R1) 


119 




LB 


85,0(81) 


120 




XAR 


R6,R5 


121 




EXBR 


R8,R1 


122 




HHR 


R2,H8 


123 




SSH 


R^.RS 


12l» 




BTBS 


9,1 


125 




RDR 


RU.RS 


126 




BXLE 


RI.LOAD 


127 




EXBR 


H8,R6 


128 




HHR 


R2,88 


129 


LDWT 


LIS 


R7,a 


130 




SLLS 


87,12 


131 




EPSB 


85, R7 



83 = ADS( LAST NON- 
R6 = CHKSUfI BYTE = 
INPUT DEV ADR 



DU,33Y 



ZERO 
X'MS" 



SlfTE ) 



132 



BS 



LDHT 



IGNORE LEADE= 

STORE 1ST SON-ZERO t SUasSQUENT BYTE 

RELOAD DATA BYTE TO 

GENERATE CHKSOH 

DISPLAY "MEMORY ADDRESS 

DU,BSY 

LOAD TILL LAST BfTE 

FINAL CHKSUM 

87 = X'8000' 
HALT PROCESSOR. 



C"<T01100 

ciTonio 

C?!r01120 
CRT01130 

crioiiao 

CMT01150 
CMTOIieO 
CMT01170 
CMT01180 
CKT01190 
CI1T01200 
CMT01210 
CMT01220 
CMT01230 
CMT01240 
CHT01250 
CI1T0126O 
CMT01270 
CMT01280 
CNT01290 
CMI01300 
CMT01310 
CHT01320 
CMT01330 
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EXEC - ETPE R03P2 ( W/COSDITICHAL ASSEHBLI) 



PACE 



OODO 






OAOO 


aaco 


0A30 




occo 


0A0« 


OAOU 






0A04 


1)300 


0A46 


0A08 


0300 


0A5E 


OAOC 


tt300 


0A62 



0A10 


0101 


0A12 


1011 


OAlt 


O202 


0A16 


6262 


0A1S 


1011 


0A1A 


ccco 


0A1C 


coco 



0A1E 


OliiO 




OA20 


ooco 




0A22 


70FO 




0A24 


3CF0 




0A26 


0000 




0A2e 


0000 




0A2A 


OCCO 




0A2C 


0000 




0A2E 


0000 




0A30 


0711 




0A32 


4010 


0030 


0A36 


4820 


0A2Q 


0A3A 


4020 


0032 


0A3E 






0A3E 


2521 




oAao 


ftC2C 


16Ctt 


OAltt 


23Ce 




0AU6 


3711 




0AI»8 


J.010 


16C« 


0A4C 


6610 


0A2i» 


0A5O 


C820 


0A6e 


0A5U 


<i010 


0034 


0A58 


«cio 


0036 



134 

135 

136 

137 

139 

139 

140 

141 

145 

146 

147 

148 

149 

150 

151 

152 

153 

154 

155 

156 

157 

158 

159 

160 

161 

162 

163 

164 

165 

166 

167 

168 

169 

170 

171 

172 

173 

174 

175 

176 

177 

178 

179 

180 

181 

132 

183 

164 

185 

166 

187 

188 

189 



ORIGISIl 
CRIGIII2 



OBIGItiS 
0HIGIII4 



ORG 

B 

EQU 

IFZ 

B 

B 

B 

ELSE 

ENDC 



X'AOO" 
STAST1 

♦ 

A DC- 2 
STA3T2 
STA3T3 
STASla 
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START HERE FOB 32-81? PROCESSOR 



SmHT KEPE FOR 16-BIT PEOCESSOH 
SPECIAL 32-BIT PROCESSOR START 



TEST CONSTANTS 



10 

PASLADS 
CLIFADS 
LPADR 
C300ADH 
MICH0E7S DC 
OCX 



DC 
DC 
DC 
DC 
DC 



X'0101' 
X'1011" 
X'0202' 
X'6262' 
X' 1D1V 
X'COCD" 




I/O DEVICE(S) IDENTIFIEH 

PASLA/PAl!! READ/WRITE ADDRESSES 

CURRENT LOOP INTERFACE R/M ADDRESSES 

LINE PRINTER ADDRESS 

CAROUSEL 300/PASLA ADDRESSES 

KICROBUS ADDRESS 

PROVISION FOR SPECIAL DEVICE 



lu 



TI«E 

PSW 
PS«2 



0101 
0202 
XX03 
0404 
050 5 

DC 

DCX 

DCX 

DCX 

DCX 

DCX 

DCX 

DCX 

DCX 



FOR CRT ON PA3LA 

FOR TELETYPE, CAROUSEL 15/30 

FOR LINE PRINTER 

FOR CAROUSEL 300 

FOR "ICROBUS 



X" 140" 



70F3 

30F0 













STABT1 



START2 



ST 



XAR 

STH 

LH 

STH 

IFZ 

LCS 

STH 

BS 

XAR 

STH 

LH 

tSDC 

LHI 

STH 

STH 



R1,R1 
R1,X'30' 
B2,PSi(2 
R2,X"32' 

A DC- 2 

R2,1 

R2, 10032 

ST 

R1,S1 

R1,SOD32 

R1,PSU2 

R2, START 
R1,I'34' 
R2,X*36' 



CONSTANT FOR 1 MS DELAT ( X'C8' -HOD70 ) 

RESERVED 

PSB USED IN PROGRAM 

PSH USED IN EXEC 

BSSEflVED 

RESERVED 

RESERVED 

RESERVED 

RESERVED 



DISABLE INT AT PROCESSOR LEVEL 
SELECT RES SET 15 

SET KODiL 32 PROCESSOR FLAG 

RESET HDD 32 PROCESSOR FLAG 

II INT NEB PSH LOC 



CHT01350 
CHT01360 
C!1T01370 
CHT01380 
CKTOI 390 
CMT01100 
CMT01-10 
CKT01U20 
CMT01460 
C(IT01U70 
CMT01480 
CHT01490 
C1T01 eOO 
CflTOISIO 
CHT01520 
CST01630 
CHT01540 
CMT01550 
CHT01560 
C3T01570 
CRT01530 
CMT01590 

CMToieoo 

CI1T0161Q 
CNT01620 
CHT01630 
CITOI'64 
CJITOieSO 
CHT01660 
CHT01670 
CnT01680 
CHT01690 
CMT01700 
CnT01710 
C!1T01720 
CBT01730 
C(IT01740 
CfIT01750 
CHT01760 
CBT01770 
CI1T01780 
CMT01790 
CBT01B00 
CI1T01310 
CBT01820 
CHT01830 
CMT01840 
CHT01850 
CBT01860 

\, n 1 u I o r \j 

CHT01880 
CHT01890 
C?1T01900 
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0000 
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D210 


0A10 


0A8O 
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0A8C 


0866 




0A8E 


2336 




0A9O 


9121 




0A92 


D302 


0A11 


0A96 


DE02 


16ES 


0A9A 


aiFO 


1304 


0A9E 


9310 




OAAO 


9111 




0AA2 


4831 


0A10 


0AA6 


4030 


16DA 


OAAA 


4821 


16DC 


OAAE 


4020 


16DC 


0AB2 


4821 


16E8 


0AB6 


4020 


16E8 


OABA 


9011 




OABC 


D341 


16F4 


OACO 


D240 


16F4 


OACU 


4040 


16D6 


0AC8 


0844 




OACA 


2333 




OACC 


9422 




OACE 


9E32 




OADO 


41E0 


1360 


0AD1» 


2400 




0AD6 


40C0 


1704 


OADA 


41F0 


11A2 


OADE 


C850 


1978 


0AE2 


41F0 


112A 



190 






DCX 





191 


* 








192 


START3 


B 


STARTI 


193 






IFZ 


ADC-2 


194 


STABT4 


B 


START2 


195 






ENDC 




196 


* 








197 


START 


LB 


ai.io 


198 






LB 


R 2.- 1 0+1 


199 






LIS 


B3,6 


200 






CLH8 


R1,B3 


201 






BLS 


10. OKI 


202 






LIS 


R1,1 


20 3 


10. 


.OKI 


CLHB 


32, R3 


204 






BLS 


ia.0K2 


205 






LIS 


32,1 


206 


ID. 


.0K2 


STB 


&1,10 


207 






STB 


R2,10+1 


208 






LB 


R6,C0NRQ2S(R2) 


209 






STH 


R6,PASFLG2 


210 






LDAR 


R6,R6 


211 






BZS 


I0.0K3 


212 






SLHLS 


R2,1 


213 






LB 


aO,IO+1(R2) 


214 






OC 


R0,COH2SD{S2) 


215 


* 








216 


10. 


.0K3 


BAL 


LINK,SETKB 


217 






LBR 


R1,R0 


218 






SLHLS 


R1,1 


219 






LH 


R3,I0(R1) 


220 






STH 


R 3, COS ADR 


221 






LH 


R2,C0NRD(R1) 


222 






STH 


R2,C0NHD 


223 






LH 


R2,CON2ND(R1) 


224 






STH 


R2,C0N2ND 


225 






SRHLS 


R1,1 


226 






LB 


R4,C0NRQ2S(R1) 


227 






STB 


R4,C0NRQ2S 


228 






STH 


E4,PASFLG 


229 






LDAR 


R4,R4 


230 






BFF3 


3,3 


231 






EXBR 


R2,R2 


232 






oca 


R3,B2 


233 


* 








234 






BAL 


LINK,LCORE 


235 






LIS 


ao,o 


236 






STH 


RO,V^SDO 


237 






BAL 


LINK,CHLF 


238 






LHI 


R5, TITLE 


239 

240 


*— . 




BAL 


R15, PRINT 










241 


* 


KETBOARD INPUT ROUTINE 


242 


* 









5 13:07:45 79/16/79 

TAKiC AN ILLEGAL ISST^UCTIOH 1ST 
INSERT SPECIAL POUTINE HERE 
INSERT SPECIAL OODTISE HERE 

GET I/O IDENTIFIERS 

IDENTIFIES CAN BE 1,2,3,4,5 

BRANCH IF KB IDENTIFIER OK 
OTHERWISE FORCE IT TO BE PASLA 

SA?1E TEST FOR LIST DEVICE 

REESTABLISH VALJES 

SET PASLA FUG (LIST DEVICE) 
SKIP IF MOT PASLA 

ISSUE 2Nu C01.*A:SD (LIST DEVICE) 

ESTABLISH KEYBOARD DEVICE 
(SI) = 1,2,4,5 
(R1) = 2, 4, 6, A 

SET UP CONSOLE DEVICE ADDRESS 

SET UP R/W C0R1ANDS 

2ND CiO; ENABLE READ CHD 

CONSOLE REQUEST TO SEND 
SET PASLA FLAG (CONSOLE) 

SKIP IF SOT PASLA 

ISS'IE 2SD Ca'HAND (CONSOLE) 

SET UP LOW CORE 

RESET 'DEVICE ri:; AVAI LABLE' FLAG 

PRINT TEST PROGRA.'! TITLE 



C!«T01910 
CKT01920 
CHI01930 
C."fT01940 
C.1T019 50 
CST01360 
CMT01970 
CMT01980 
CKT01990 
CMT02000 
CMT02010 
CMT02020 
CST02030 
C!1T02040 
C".T02050 
C.1T02060 
CHT02070 
CHT0208Q 
CHT02090 
CMT02100 
CMT02110 
C:iT02120 
CMT02130 
CRT02140 
CHT02150 
CflT02160 
CBT02170 
CMT02180 
CJ1T02190 
CMT02200 
Ci1T02210 
C»!T02220 
CNT02230 
C^T027''0 
CNT02250 
CNT02260 
C'!T02270 
C^T02280 
C".T02290 
CMT02300 
C!1T02310 
CNTO2320 
C?^T02330 
C:iT02340 
C!1T02350 
C:iT02360 
■:^T02370 
CNr02360 
C.1T02390 
CMT02i'00 
CBT02alO 
C«T02U2a 
C!1T02430 



COHHOH HUGUETIC TAPE TEST PB0G8AH 06-172803A13 



PAGE 



13:07:«5 08/16/7? 



EXEC - ETPE B03P2 ( W/CONDITICHAL ASSEMBLI) 





0000 


0AE6 


0AE6 


i»1F0 


11A2 




0000 


OAEA 


OAEA 


14820 


0A2U 


OAEE 


9512 




OAFO 


UIFO 


130« 


OAFU 


D3«0 


17B0 


0AF8 


ttlFO 


11B0 


OAFC 


2511 




OAFE 


UIFO 


11B0 


0302 


C3C0 


1250 


0B06 


C800 


2020 


OBOA. 


ttOOO 


3EitO 


OBOE 


1000 


3EU2 


0B12 


l»000 


3Ei*tt 


0B16 


0711 




OBIS 


ttlFO 


121C 


0B1C 


CSIO 


0060 


0B20 


2183 




0B22 


CBUO 


0020 


0B26 


C510 


0023 


0B2A 


tt330 


0AE6 


0B2E 


C5«0 


005F 


0B32 


2139 




0B3I* 


2711 




0B36 


021C 




0838 


C8C0 


0020 


0B3C 


D201 


3EU0 


OB40 


4300 


0B18 


OBUM 


CSflO 


OOOD 


0B4B 


233C 




OBHA 


C5«t0 


0020 


OBltE 


2339 




0B50 


C510 


0006 


035« 


038C 




0B56 


D2*1 


3EU0 


0B5A 


2611 




0B5C 


lt3C0 


0B18 



0B60 


C810 


17B6 


0B64 


0733 




0B66 


08«1 




0B6a 


1856 


0000 


0B6C 


021C 




0B6E 


4553 


3E40 


0B72 


2333 




0B74 


26 1C 




0B76 


2209 




0B78 


2632 




0B7A 


26€2 




0B7C 


C530 


0006 



243 


OPTIN 


E3'J 


* 


244 




HAL 


LIIIK,CRLF 


245 


0PTIN1 


IQl] 


* 


246 




LH 


82,PS»2 


247 




EPSB 


31, R2 


248 




3AL 


LI MK, SET KB 


249 




L3 


R4,A?1SG 


250 




BAL 


LISK,OUTCHR 


251 




LCS 


R4,1 


252 




BAL 


LIH>C,OUTCriS 


253 




LHI 


ai2,0UESTS 


254 




LHI 


R0,X'2023' 


255 




STH 


B0,3Pr3Ur 


256 




3TH 


R0,OPT8JFt2 


257 




STH 


R0,3PTBUF+4 


258 




XAf) 


31,31 


259 


RDCHS 


BAL 


R15,GETCHP 


260 




CLHI 


R4,X'6Q' 


261 




3LS 


RDCHARO 


262 




SHI 


R4,X*20' 


263 


BDCHARO 


CLHI 


R4,X'23* 


264 




BE 


OPTIN 


265 




CLHI 


R4,X*5F' 


266 




BXES 


RDCHRI 


267 




SIS 


31,1 


268 




BSR 


R12 


269 




LHI 


80,X*20- 


270 




STB 


R0,0PT9UF(R1) 


271 




B 


BDCHR 


272 


RDCHHI 


CLHI 


R4,X*0D' 


273 




BES 


LOOKUP 


274 




CLHI 


R4,X'20' 


275 




BES 


LOOKUP 


276 




CLHI 


R1,6 


277 




BilLR 


B12 


278 




STB 


R4,3PTBUF(ai) 


279 




AIS 


R1,1 


280 
281 


*—— — V — — 


B 


RDCHR 








28 2 


* OPTIOH HATCH BOOTIRE 


283 


* 






284 


lOOKOP 


LHI 


R1,0PT 


285 


L00K1 


lAR 


83, R3 


286 




LDAR 


R6,R1 


287 


LOOK 2 


LH 


a5,0(R6) 


288 




BKR 


R12 


289 




CLH 


B5,OPTBUFCB3) 


290 




BES 


LOOK 3 


291 




AIS 


ai,12 


292 




BS 


L00K1 


293 


L00K3 


AIS 


R3,2 


294 




AIS 


R6,2 


295 




CLHI 


H3,6 



CR,LF TO LIST DEVICE 



NO INT. SEG SET 15 
ESTABLISH CDNSDLF 
OUTPUT AN • TO INDICATE 
CONMAND )»0DE ESTABLISHED 
X'FF- 

SET UP ai2 FOR EaR SOUTINE 
BLANK 03T CO-^IAND 3JFFE3 
WHICH WILL CONTAIN OPTION 
NA"^i 

CLEAR OPTBUF INDEX 
SET A CHA?, IN ?4 
UPPER CASE ALPHA ? 
BRANCH IF NO. 
CONVERT TO LOWER CASF 
IS IT * ? 

LEFT ARROW, UNDERLINE OR DELETE ? 

XES, DECREMENT INDEX 
BUFFER UNDERFLOW; PRINT •?' 



IS IT CR ? 
lES, TRT HATCH 
IS IT A BLANK? 
IfES, THY BATCH 
7 CHARACTEH3 INPUT I 
IF TES, E880? 
STORE CURRENT BTTE 
BUN? BUFFER INDEX 
READ NEXT CHARACTEB 



LOAD ADDRESS OF OPTION TABLE 
CLEAR SUFFER INDEX 
SET OPTION WORD INDEX 



IF fflNUS, THEN NO BATCH 
COMPARE TO OPTBUF HW 



TRY NEXT HW 

3 NATCHIN^ HW FOUND 7 



ERROR 



CHT02440 
CMT02450 
CST02460 
CNT02470 
CHT02480 
CST02490 
CBT0250C 
CMT02?10 
C!!T02520 
CF1T02530 
CHT02540 
CHT02550 
C!1T02560 
CMT02S70 
C«T02580 
CKT02590 
Cf.T02600 
C?lT02ei0 
C"iT02620 
C?!T02630 
CHT02640 
CHT02650 
CHT02660 
CJ1T02670 
CHT02680 
CBT02690 
■C''T02700 
CnT02710 
C>1T02720 
C.'1T02730 
CnT02740 
CMT02750 
CBT02760 
CKT02770 
CHT02780 
CBT02790 
CHT02300 
CHT02610 
CBT02820 
CfiT02330 
CBT02840 
CBT02850 
CBT02860 
CBT02e70 
CBT02880 
CKT02890 
CnT02900 
C5T02910 
Ci1T02920 
CKT02930 
CNT02940 
CBT0295C 
CHT02960 



C01HON HAGNETIC TAPE TEST PRCGBAH 06-172R03M3 
EXEC - ETPE H03P2 C W/CONDITIOHAl ASSEKBLr) 



0B80 



208C 



0B82 


C510 


1936 


0386 


U3 30 


0D86 


038A 


C510 


192A 


038E 


l»230 


OCFC 


0B92 


!iS20 


1932 


0896 


0232 




0B98 


C830 


17B6 


0B9C 


C8F0 


0C22 


03A0 


HIFO 


11A2 


0BA4 


07 22 




0BA6 


D3it2 


17B6 


OBAA 


«1F0 


11B0 


OBAE 


2621 




03B0 


C520 


0006 


0BB4 


2087 




0BB6 


ceoo 


0020 


OBBA 


aiFo 


11B0 


OBBE 


0755 




03C0 


«050 


16C2 


OBCU 


«823 


0006 


0BC8 


2H«0 




OBCA 


ttOlO 


3E3C 


OBCE 


9121 




OBDO 


1380 


0C02 


OBD« 


«0U0 


3E3C 


0BD8 


1(800 


16C2 


OBDC 


2335 




OBDE 


CSltO 


002C 


03E2 


U1F0 


11B0 


r)BE6 


UOFO 


16C2 


OBEA 


0855 




OBEC 


2335 




OBEE 


C8«tO 


0031 


0BF2 


<41F0 


11 BO 


CBF6 


ueno 


3E3C 


OBFA 


T)3^^ 


171C 


OBFE 


I41F0 


11 BO 


0C02 


1*8 «0 


3E3C 


ocos 


2641 




OC08 


40110 


3E3C 


9C0C 


CSltO 


0010 


OC10 


1280 


OBCE 


0C1II 


0855 




0C16 


023E 




0C18 


48 2 3 


0008 


0C1C 


2451 




0C1E 


4300 


0BC8 



296 
297 
298 
299 
300 
301 
302 
303 
30 4 
305 
306 
307 
308 
309 
310 
311 
312 
313 
314 
315 
316 
317 
318 
319 
320 
321 
322 
323 
324 
325 
326 
327 
328 
329 
3 30 
331 
332 
333 
334 
335 
336 
337 
338 
339 
340 
341 
342 
343 
344 
345 
346 
347 
348 



BLS 

CLHI 

BE 

CLHI 

BNE 



L00K2 

HI, RUN 
RUNIT 
R1, OPTION 
1,00X4 



* TO PROCESS 


INPUT COHMAND •OPTION 




LK 


E2,0FTI0K<-8 




BNZB 


R2 


OPTRTH 


LHI 


R3,TEST 




LHI 


R14,0PTCHD8 




BAL 


LINK,CRLF 


OPTCHD 


XAB 


R2,R2 


0PTCHD1 


LB 


R4,0PT(B2) 




BAL 


LINK,OUTCHR 




AIS 


R2,1 




CLHI 


82,6 




BLS 


0PTCHD1 




LHI 


R4,C' • 




BAL 


LINK,0UTCHR 




XAR 


R5,S5 




STH 


E5, FIRST 




LH 


R2,6tR3) 


0PTCHD2 


LIS 


R4,0 




STH 


R4,TEI!P 


0PTCHD3 


SLHLS 


R2,1 




BSC 


0PTCHD7 


0PTCMD4 


STH 


R4,TEJIP 




LH 


HO, FIRST 




BZS 


0PTC!1D5 




LHI 


R4,C',' 




BAL 


LIN!C,OUTCHH 


0PTCMD5 


STH 


LINK, FIRST 




LDAR 


R5,a5 




BZS 


0PTCND6 




LHI 


R4,C'1' 




BAL 


LINK,OUTCHR 


0PTCHD6 


LH 


R4,XEflP 




LB 


a4,HEXTAS(R4) 




BAL 


IISK,0UTCHR 


0PTC«D7 


LH 


R4,TE'1P 




AIS 


34,1 




STH 


34, TEMP 




CLHI 


R4,16 




BL 


0PTCflD3 


0PTCBD71 


LDAR 


R5,35 




BNZR 


R14 




LH 


R2,aCR3) 




LIS 


R5,1 


♦ -- — -. — — — 


B 


0PTCKD2 



PAGE 7 13:07:^5 08/16/79 



RUN C0!1^!AND 7 

OPTION C»iD ? 
NO, LOOK FURTHER 



LINK TO ROUTINE 
RETURN HERE 



RESET COUNTER 
TO PRINT TEST 



OUTPUT 1 SPACE 

TO PRINT SELECTED TEST NUMBERS 

FIRST TEST WORD 
START una TEST 



OPTION VALUE FOUND. 
IS IT FIRST ? 



NO, OUTPUT COMMA 



TEST VALUE FROM SECOND Hi? 

NO 

YES, OUTPUT 'r 

RESTORE R4 
CONVERT 
OUTPUT D-F 
RESTORE 
INCREMENT TFST 4 



DONE 7 

SECOND TEST WORD 

R5 = 1 FOR SECOND TEST HW 



TO OUTPUT OTHER OPTION NAMES £ VALUES 



CMT02970 
C1T02980 
C'!T02990 
CC.T03000 
C,1T03010 
CKT03020 
CKT03030 
CMT03040 
CST030S0 
CnT03060 
CnT03070 
CMT03080 
CMT03090 
CMT03100 
CMT03110 
CKT03120 
CMTO-3130 
CHT03140 
CBT03150 
CMT03160 
CHT03170 
CMT03180 
CHT03190 
CMT0 3200 
CMT03210 
CMT03220 
CMT03230 
CKT03240 
CMT03250 
CMT03260 
CST03270 
CMT03280 
CHT03290 
CMT03300 
CMT03310 
CMT03320 
CMT03330 
CMT03340 
C"T03350 
CMT03360 
CMT03370 
CMT03380 
C.1T03390 
C'1T03400 
CHT03410 
CMT03U20 
C1T03430 
CMT03440 
CMT03450 
CKT031150 
CKT03U70 
CMT03480 
CMT03490 



COBBOH BAGHETIC T»PE TEST PROGRAB 06-172B03I113 
EXEC - ETPE 803P2 ( H/COBDITIOSAL ASSEHBLY) 



PAGE 
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0C22 
0C26 



itlFO 11A2 
C820 17C2 



0C2A 


tt850 


16C4 


0C2E 


"4330 


0C9F 


0C32 


0755 




0C3i» 


D3K5 


17CE 


0C38 


ttlFO 


11B0 


0C3C 


2651 




0C3E 


C550 


0006 


0C42 


20 37 




ocua 


CBftO 


0020 


0C48 


tIFO 


11B0 


OCttC 


2'»01 




OCUE 


D350 


17D9 


0C52 


ttlFO 


10DA 


0C56 


2l»0i» 




0C59 


1*850 


1704 


OCSC 


itlFO 


10DA 


0C60 


«1F0 


11A2 


0C6i» 


0755 




0C66 


03115 


17C2 


0C6A 


U1F0 


11B0 


0C6E 


2651 




0C70 


C5E0 


0006 


0C7it 


2037 




0C76 


C810 


0020 


0C7A 


mFO 


11B0 


0C7E 


2H01 




0C80 


D350 


17CD 


ocea 


UIFO 


10DA 


ocas 


21104 




0C8A 


4850 


17C9 


0C8E 


41F0 


10DA 


0C92 


41F0 


11A2 


0C96 


2461 




0C98 


C820 


17DA 


0C9C 


2302 




0C3E 


2461 




OCAO 


2436 




0CA2 


D342 


0000 


0CA6 


41F0 


11B0 


OCAA 


2621 




OCAC 


2731 




OCAE 


2026 




OCBO 


C8 40 


0020 


OCBU 


41F0 


1180 


0CB8 


4852 


0000 


0C3C 


2404 





349 


» 






350 


OPTCHOa 


BAL 


LII(K,CRLF 


351 




LHI 


82,0PT+12 


352 


* 






353 


*•*• PRWRITE 


AND PBfiEAD ROUT 


354 


»*.» 32 


BIT .•! 


ACHIHES 


355 


* 






356 


CHECHUa 


LH 


B5,10D32 


357 




BZ 


OPT555 


358 


PBWRITE 


XHR 


H 5 , K 5 


359 




LB 


R4,1KSITE(R5) 


360 




BAL 


LINK.OUTCHR 


361 




AI3 


R5,1 


36 2 




CLHI 


R5,6 


36 3 




BSES 


PRi/RITE+2 


364 




LHI 


R4,C' • 


365 




BAL 


LINK.OUTCHR 


366 




LIS 


R0,1 


367 




LB 


B5,1WRITE+11 


368 




BAL 


LI5IK,R5HEX 


369 




LIS 


R0,4 


370 




LH 


P5,?1-.iaiTE+6 


371 




BAL 


LISK.RSHEX 


372 




BAL 


LIII.t,CRLF 


373 


PRBEAD 


XHR 


85,85 


374 




LB 


B4,'<READ(R5) 


375 




BAL 


LIKICOUTCHR 


376 




AIS 


R5,1 


377 




CLHI 


R5,6 


378 




BMSS 


PRBEAD+2 


379 




LHI 


B4,C' • 


380 




BAL 


LIHn.OUTCHR 


381 




LIS 


B0,1 


38 2 




LB 


B5.BBEAD-H1 


383 




BAL 


LIIIK,R5HEX 


384 




LIS 


R0,4 


385 




LH 


B5,!!READ+6 


336 




BAL 


LI»K,R5HEX 


387 




BAL 


LISK,CBLF 


388 




LIS 


B6,1 


389 




LHI 


R2,0PT+36 


390 




BS 


0PTCKD9 


391 


OPT555 


LIS 


B6,1 


392 


0PTCBD9 


LIS 


R3,6 


393 


OPTCHD10 


LB 


fi4,D(R2) 


394 




BAL 


LINK.OUTCHR 


395 




AIS 


R2,1 


396 




SIS 


R3.1 


397 




BPS 


OPTCBDIO 


398 




LHI 


84, C • 


399 




BAL 


LldK.OUTCHR 


400 




LH 


B5,a(R2) 


401 




LIS 


R0,4 



E2 POUTS TO THE MAKE 



IF HOT 32 BIT ?HCHINE THEN BRANCH** 
AND ALLOiJ RKfJULAR ETPE TO PRIST 



OUTPOT OPTION NAME CHAB 

6 CHARArTERo OOTPtJT 7 
N0,L03? 

OUTPUT ONE SPACE 
H5 = DFTIOK VAL'JE 





CltT03500 




CHT03510 




CBT03520 




C'!T03530 




CXT03540 




CBT03550 




CtT03?60 




C!5T03570 




CtT03580 




CBro35go 




CMT03600 




C1T03610 




CNT03620 




C1T03630 




CST03640 




CKT03650 




C1T03660 




CMT03670 




CST036tf0 




C?IT03690 




C1T03700 




CBT03710 




CBT03720 




CBT03730 




CHT03740 




CPT03750 




CBT03760 




CBT03770 




CBT03780 




C.1T03790 




CBT03800 




CHT0 38 10 




CNT03820 




CBT03H30 




CBT0 38 40 




CBTOSaSO 




CBT03B60 




CBT03870 




CBT038e0 




CBT03890 




C.BTOSgOO 




CHT03910 




CHT03920 




CBT03930 




CBT03940 




CHT03950 




CST03960 




CHT03970 




CHT039eO 




CRT03990 




CBT04000 




C?!T04010 




CST04020 



COMMON MAGNETIC TAPE TFST PBOGBAH 06-172803A13 
EXEC - ETPK B03P2 ( H/CONDITIOHAL ASSEMBIY) 



PAGE 



OCBE 


UIFO 


10DA 


0CC2 


2661 




OCClt 


C560 


0014 


0CC8 


218C 




OCCA 


0765 




OCCC 


241*0 




OCCE 


«1F0 


11B0 


0CD2 


UIFO 


121C 


0CE>6 


279D 




0CD8 


4330 


0AE6 


OCDC 


2643 




OCDE 


2036 




OCEO 


41F0 


11*2 


0CE4 


41F0 


126A 


0CE8 


2626 




OCEA 


C520 


192A 


OGEE 


4280 


OCAO 


0CF2 


2440 




0CF1 


41FD 


11B0 


0CF8 


4300 


OAEA 



OCFC 


C510 


17B6 


ODOO 


4330 


0D34 


0D04 


C510 


1942 


0D08 


2134 




ODOA 


8800 




ODQC 


4300 


0AE6 


0D10 


274D 




0D12 


033C 




0D14 


41E0 


1068 


0D18 


274D 




0D1A 


0230 




0D1C 


48F1 


0008 


0D20 


2332 




0D22 


01FE 






0000 


0D24 


0D2tt 


4061 


0006 


0D28 


4300 


0AE6 


0D2C 


CS60 


0400 


0D30 


028F 




0D32 


030C 





0D34 


274D 




0D36 


213B 




0D38 


4800 


1952 


0D3C 


4000 


17BC 


0D40 


4800 


1954 


0D44 


4000 


17BE 



402 




BAL 


LINK,B5HEX 


403 




AtS 


R6,1 


404 




CLHI 


R6,20 


40 5 




BLS 


0PTCMD12 


406 




XAR 


R6,S6 


407 




LIS 


R4,X'0' 


408 




BAL 


LI!IK,0UTCH8 


409 


0PTCHD11 


BAL 


LIHK,GETCHR 


410 




SIS 


k4,13 


411 




3Z 


OPTIH 


412 




AIS 


R4,3 


413 




BHZS 


0PTCHD11 


414 


0PTCf!D12 


BAL 


LlriK,CRLF 


415 




BAL 


LIHK,TSTBRK 


416 




AIS 


R2,6 


417 




CLHI 


R2,3PrE»D2 


418 




BL 


0PTCMD9 


419 




LIS 


B4,X'0' 


420 




BAL 


LINK.OOTCHR 


421 
422 
423 


*____^_^ 


B 


0PTIN1 


* TO PROCESS 


COHNASDS OTHER T 


424 


. ♦ 






425 


L00K4 


CLHI 


ai,TEST 


426 




BE 


TESTOP 


427 




CLHI 


R1,C0N 


428 




BNES 


L00K4A 


429 




OCX 


8800 


430 




B 


OPTIN 


431 


L00K4A 


SIS 


R4,13 


432 




3ZR 


R12 


433 




BAL 


B14,0PTVAL 


434 




SIS 


R4,13 


435 




BNZR 


R12 


436 




LH 


R14,8(R1) 


437 




BZS 


L00K5 


438 




BALR 


R15,ai4 


439 


L00K5 


EQU 


* 


440 




STH 


R6,8(H1) 


441 




fi 


OPTIN 


442 


* 






443 


ADB 


CLHI 


R6,X'400' 


444 




BLH 


F15 


445 




Ba 


B12 


446 
447 


• - — - — ---. 






* TEST 


CFTIOK 


PROCESS ROUTINE 


448 


* 






449 


TESTOP 


SIS 


R4,13 


450 




BHZS 


TST0P1 


451 




LH 


R0,DEFTESTS 


452 




STH 


R0,rEST+6 


453 




LH 


R0,DEFTESTS+2 


454 




STH 


R0,TEST+8 



13:07:45 03/16/79 



WRITE OPTICS VALUE IN HEX (4 DIGITS) 

INCPEWEMT LISS COUNTER. 

PAGE FULL ? 

NO 

INITIALIZE LINE COUNT 

OUTPUT N'JLL 

TO CONSOLE 

CR ? 

TO ACCEPT HT.Xl COMHASD 

LF ? 

IF YES, PRINT NEXT PAGE 

EXIT IF 'BREAK' PRESSED. 

ALL PRINTING OPTIONS DOSE ? 

SO, LOOP F33 NEXT ONE 

OUTPUT HULL 

TO CONSOLE 

TO ACCEPT !«EXT COMMAND 

■TEST', 'OPTION'. 

'TEST' OPTION ? 



OPT FOLLOWED BY CR ? 

YES, ERROR 

GET OPTICS /ALUS IN R6 

TERMINATED HX CR ? 

IF HO, BPASCH 

GET OPTION CHECK ROUTINE ADDRESS 

LINK OPTION CHECK ROUTINE 

RET'JR'< HE5E 

STOi'E OPTIC"! VALUE 

TO ACCEPT NEXT COMMAND 

(R6) = 10 BIT DEVICE ADDRESS 
RETUKN rO LOOKS 



'TES 



FOLL.TWED BY (CR) ? 



YES, SET TEST OPTION TO 
FIRST TEST WORD 
ALL DEFAULT TESTS IN PROGRAM 
SECOND TEST WORD 



CMT00030 
CMT04040 
CMT04050 
CNT04060 
CHT04070 
CMT04080 
CMT04090 
C?IT04100 
CHT04 110 
CBT04120 
CHT04130 
CMT04140 
C«T0ai50 
CMT04160 
CMT04170 
CHT04180 
CMT04190 
CNT04200 
CHT04210 
CMT04220 
CMT04230 
CHT04240 
CHT04250 
CaT04260 
CMT04270 
CMT04280 
CMT04290 
CMT04300 
CMT04310 
CnT04320 
CKT04330 
CMT04340 
CMT04350 
CMT04360 
CNT04370 
CWT04380 
CHT04390 
CMT04400 
CMT04410 
CMT04420 
CHT04430 
CMT04440 
CMT04450 
CMT04460 
CMT04470 
CMT04480 
CMT04490 
CnT04500 
C'1T04510 
CMT04520 
CMT04530 
CMT04540 
CNT04550 



COHHOi MAGHETIC TAPE TEST P80GSAN 06-172B03A13 
EXEC - ETPE fi03P2 (W/CONDITIOIIHL ASSESBLI) 



0DI»8 


*300 


0AE6 


ODMC 


ueso 


1950 


0D50 


21170 




0D52 


2'i»0 




0D5tt 


illEO 


1068 


0D58 


0556 




0D5A 


Q2?C 




0D5C 


C5€0 


0010 


0D60 


2385 




0D62 


itlEO 


10B2 


0D66 


0673 




0D68 


2306 




005* 


c=eo 


0010 


0D5E 


UIIO 


10B2 


0D72 


cee3 




0D7i» 


27<4D 




0D76 


0230 


0D5i» 


aD7A 


UC70 


17BC 


0D7E 


oceo 


17BE 


OD'52 


*3C0 


0AE6 




0000 


0D86 


0D86 


• IFO 


11A2 


0D8A 


aaoo 


0A10 


0D8E 


«oco 


3E'I6 


0D92 


«1F0 


11A2 


0D96 


l»1F0 


19A6 




0000 


0D9A 


009A 


G7FF 




0D9C 


40F0 


1706 


ODAO 


2«ICF 




0DA2 


ItSIO 


17BE 


0DA6 


9011 




0DA8 


2ieB 




ODAA 


27C1 




ODAC 


2213 




ODAE 


21CF 




ODBO 


4610 


17BC 


ODBa 


9011 




0DB6 


2186 




0DB8 


2701 




ODBA 


2213 




ODBC 


03CC 




ODBE 


CAOO 


0010 


0DC2 


UOCO 


1702 



0DC6 


0700 




0DC8 


ooco 


16FE 


ODCC 


i*OCO 


170 8 



<(55 




B 


0PTI5 


tt56 


• 






i»57 


Tsropi 


LH 


R5,flAXTST 


i«5S 




LIS 


S7,0 


459 




LIS 


88,0 


U60 


TST0P2 


EAL 


R14,0?TVAL 


H51 




CLAH 


R5,B5 


tt62 




BLR 


ai2 


a63 




CLHI 


R6,16 


l»6U 




BHLS 


TST0P3 


U65 




BAL 


R14,!IHA8Y 


U66 




OAR 


B7,R3 


U67 




BS 


TST0P4 


468 


TST0P3 


SHI 


R6,16 


tt69 




BAL 


R14,lJ!tABI 


U70 




OAR 


R8,R3 


1*71 


TST0P4 


SIS 


R4,13 


U72 




BNZ 


TST0P2 


<473 




STH 


R7,TE3T+6 


lila 




STH 


R8,TEST+e 


117? 

476 




B 


OPTIS 








477 


* 






«78 


RUNIT 


Egu 


* 


1»79 




BAL 


LINK,CRLF 


430 




LH 


R0,I0 


481 




STH 


HO.IOSAVE 


432 




BAL 


LIHK,CaLF 


483 




BAL 


LINKrIfllT 


434 


INITRET 


EQU 


♦ 


08 = 




XAR 


R15,S15 


486 




STH 


R15,IIASDU1 


487 




LIS 


R0,15 


489 




LH 


R1,TEST+8 


489 


KEEP1 


SRLS 


H1,1 


490 




BCS 


FOOflDI 


491 




SIS 


R0,1 


492 




BH?(S 


KEEP1 


493 




LIS 


R0,15 


49 4 




LH 


B1,TEST+6 


495 


KEEP2 


SRLS 


B1,1 


496 




BCS 


F0UMD1+4 


497 




SIS 


R0,1 


496 




BNHS 


KEEP2 


49 9 




BR 


R12 


500 


F0UND1 


AMI 


R0,16 


501 




STH 


R0,3ELTST 


502 


* 






503 


* BESET 


TEST 


PARAHETERS 


500 


« 






505 




XftS 


RO.RO 


506 




STH 


RO.ISITERR 


507 




STH 


RO, TOTAL 



PASS 10 13:07:45 08/16/79 



TO ACCEPT HEXT COMHASD 

TEST BIT ACC'JMULATORS 

GET OPTICJ VAL'JE IK R5 

ERROR: INVALID TEST NU>I3ER 

R6 < 16 ? 

MO 

GET UHAPT OPERAND IN R3 

SET CURR-ST 5IT 

R6 = 0-F 

SET CURSriT BIT 
TEH.IINATiD 3Y CR ? 

STORE VALID SELECTED TESTS 

TO ACCEPT N^XT C01MASD 



RESTORE TSSR'S I/O CHOICE 

LINK U3E^ ISITIALIZATIOH ROUTIHE 
RETURN HERE 



TO FISD HIGH-vST SELECTED TEST NO. 
CHECK SECOSD TEST HW 



RO 



F-O 



TRY NEXT DIGIT 
IStlTIALIJE AGAIN 
CHECK FIRST TEST HW 



RO 



F-3 



TEST # 



LOOP 

TEST NOT SELECTED 

ADJUST TEST * FOR SECOND HW 

HIGHEST SEL"CTED TEST NMilBES 



RESET ERBO? FLAG 
RESET T^T^l 



CBT04560 
CHT04570 
C!1T04580 
CHT04590 
CMT04600 
C.1T0M610 
C'!T04520 
CHT04630 
CST04640 
CST04650 
CHT0466C 
CHT04670 
CNT04680 
CftT04e90 
CI1T04700 
CMT0 4710 
CKT04720 
CST04730 
CHT04740 
C'!T04750 
CKT0U760 
CMT04770 
C5T04780 
C>IT04790 
CnT04800 
CMI04810 
CHT04320 
CliT04830 
C!1T04840 
C.1T04850 
CST04360 
CBT04870 
CST04880 
CHT04890 
CST04900 
CJIT04910 
CflT04920 
C!1T04930 
Ci1T0tt940 
CNT04950 
CHT04960 
CI1T04970 
CI1T04980 

CHTOoggo 

CST05000 
CST0 5010 
CBT05020 
CNTO5O30 
C-iTOSOUO 
CHT05050 
CI1T05060 
CI1T05070 
CMT05080 



CO^!^!CN SAGSETIC TAPE TSST ?RC^?H» 06-172803A13 
EXEC - ETPE R03P2 ( W/CONDITIOH AL ASSEMBLI) 



PAGE 11 13:07:1*5 08/16/79 



ODDO 


uooo 


170A 


ODDI 


tooo 


17Q4 


0DD8 


C810 


3030 


ODDC 


«010 


1732 


ODEO 


4010 


173C 


ODEH 


4010 


173E 


0DE3 


UIFO 


1360 



ODEC 
ODEE 
0DF2 



0700 

4000 170C 
4000 1710 



0DF6 


4820 


1710 


ODFA 


2408 




ODFC 


9 IOC 




ODFE 


CC02 


0000 


0E02 


C520 


0010 


0E0 6 


2185 




0EO8 


4400 


173E 


OEOC 


2137 




OEOE 


2304 




0E10 


4400 


17BC 


0E14 


2133 




0E16 


2621 




0E18 


220F 




0E1A 


4020 


170C 


0E1E 


0812 




0E20 


2621 




0E22 


4020 


1710 


0E26 


2402 




0E28 


Ca20 


1732 


0E2C 


41F0 


1102 


0E30 


4820 


1732 


0E34 


4020 


173C 


0E33 


41F0 


126A 


0E3C 


C8 50 


172C 


0E40 


41F0 


112A 


0E44 


0700 




0E46 


4000 


1700 


0E4A 


4000 


170E 


OEUE 


4810 


0A24 


1E52 


9501 




0E54 


4820 


170C 


0E58 


9121 




0E5A 


4812 


1956 


0E5E 


0301 





508 






STH 


B0,IOTEPR 


50 9 






STH 


BO,HASDO 


510 






LHI 


HI, COO* 


511 






STH 


R1,MTESTN0 


512 






STH 


R1,ETESTH0 


513 






STH 


R1,EBRN0 


514 






BAL 


LINK,LCOHE 


515 


• 








515 


ft 


STARJ 


r SELECTIOS FROS TEST 


517 


* 








518 


KEEP3 


XAR 


R0,R0 


519 






STH 


80,BTESTNO 


520 






STH 


RO.NEXTST 


521 


* 








522 


* 


TO FIND THE 


MEXT SELECTED T 


523 


• 








524 


KE 


EP4 


LH 


R2,REXTST 


525 


KEEP41 


LIS 


HO, 8 


526 






SLHLS 


R0,12 


527 






S8HI 


R0,0(B2) 


528 






CLHI 


R2,X' 10" 


529 






BIS 


KEEP42 


530 






NH 


R0,TEST+8 


531 






BNZS 


KEEPS 


532 






BS 


KEEP43 


533 


ICE 


E?42 


NH 


R0,TEST+6 


534 






BHZS 


KEEP 5 


535 


KEEP43 


AIS 


R2,1 


536 






BS 


KEEP41 


537 


KE 


EPS 


STH 


a2,3TESTN0 


538 






LDAR 


R1,S2 


539 






AIS 


R2,1 


540 






STH 


R2,!IEXTST 


541 






LIS 


ao,2 


542 






LHI 


R2,«TESTN0 


543 






BAL 


LINK,HEXASC 


544 






LH 


R2,!1TESTK0 


545 






STH 


R2.ETESTN0 


546 






BAL 


LINK,TSTBHK 


547 






LHI 


R5,TSTMSS 


548 






BAL 


LINK, PRINT 


549 






XAR 


RO,ao 


550 






STH 


R0,NOERR 


551 






STH 


RO, COUNT 


552 


ke: 


£P6 


LH 


R1,PSH2 


553 






EPSR 


R0,R1 


554 






LH 


R2,BTESTN0 


555 






SLLS 


R2,LADC 


556 






LDA 


R1.TESTS(R2) 


557 
558 
559 


*_. 




B8 


R1 


* 








560 


* 


TEST 


MODULE 


END ROUTINE 



BESET TOTER.^ 
RESET WASDU 

RESET THESE FLAGS TO COO' 



SET UP LO;* CORE 



BESET BINARY TEST NUMBER 
RESET NEXT TEST * 



GET NEXT TEST * 

RO = X'8000' 

RO = NEXT TEST BIT 

NEXT TEST < 16 

LOOK AT TEST HH 2 



LOOK AT TEST HW 1 



LOOP FOR NEXT TEST # 

CURRENT TEST # 

R1 = TEST # IM giNASr 



SET DIGITS ro P'INT = 2 

82 = A(MTSSTSO) 

STORE TEST « IN ASCII $ MTESTHO 

STORE TEST * IV ASCII S ETESTNO 
TEST BREAK 

PRINT TEST KN" 

RESET ERROR FLAG 

RESET COUNT 

DISABLE IITiSRUPIS ** 

R2 = TES'T- « 



GO TO TEST rCDULE 



CMT05090 
CflT05100 
CBTOSnO 
Cf1T05120 
CMT05130 
CMT05140 
CMTOSISO 
CKT05160 
CHT05170 
CNT05180 
CHT05190 
Cf1T05200 
CMT05210 
CMT05220 
C!?T05230 
CHT05240 
C«T05250 
C.1T05260 
CMT05270 
CHT05280 
CI1T05290 
C?!T05300 
CnT05310 
C?IT05320 
CMT05330 
CI1T05340 
CnT05350 
CNT05360 
CHT05370 
CnT05380 
CaT05390 
CMT05400 
C?1T05410 
CMT05420 
CHT05430 
CST05440 
CJ1T05450 
CMT05460 
CNT05470 
C1T05480 
CHT05490 
CMT05500 
C1T05510 
C!1T05520 
CMT05530 
Cf1T05540 
CHT05550 
CMT05560 
C!1T05570 
C1T05580 
C'(T05590 
CNTOSf^OO 
C.^T05610 



COHMON BAGSETIC TAPE TEST PROGRAM 06-172R03A13 
EXEC - ETPE B03P2 { a/CONDITIOK AL ASSEMBLY) 



PAGE 12 13:07:«5 08/16/79 





0000 


0E6P 


0E60 


H8 10 


0A2H 


0E6U 


9501 




0E66 


H800 


170E 


0E6A 


2601 




0E6C 


UOCO 


170E 


0E70 


4500 


17E0 


0E7a 


2385 




0E76 


ftlFO 


126A 


0E7A 


U300 


0E!»E 


0E7E 


1*800 


1700 


0E32 


2135 




0E8M 


C850 


1752 


0E88 


(UFO 


112A 


0E8C 


l»810 


170C 


0E90 


«510 


1702 


0E9t 


U280 


0DF6 





0000 


0E93 


0E98 


a200 


0030 


0E9C 


IHFO 


12DE 


OEAO 


i»2 30 


0EC9 


OEAU 


«810 


1796 


0EA8 


U230 


OF 10 


OEAC 


41F0 


126 A 


OEBO 


«810 


17EC 


OEBi« 


1(230 


ODEC 


0EB8 


l»1F0 


1300 


OEBC 


C8E0 


17AU 


OECO 


41F0 


112* 


OECit 


1*300 


0AE6 



0EC8 


nolo 


170«t 


OECC 


«810 


1708 


OEDO 


2611 




0ED2 


M010 


1708 


0ED6 


2«21 




0ED8 


DE20 


16D5 


OEDC 


1*800 


170A 


OEEO 


9M00 




0EE2 


98 20 




OEEi* 


91*01 




0EE6 


9820 




0EE8 


DF.20 


l6Da 


OEEC 


C51Q 


7FFF 


OEFO 


2389 




0EF2 


U800 


170C 


0EF6 


1*^00 


1702 



561 
56 2 
563 
56a 
565 
566 
567 
568 
569 
570 
571 
572 
573 
5714 
575 
576 
577 
578 
579 
58 
581 
582 
58 3 
58<* 
585 
586 
587 
588 
589 
590 
591 
592 
593 
591* 
595 
596 
597 
598 
599 
600 
601 
602 
503 
601* 
605 
606 
607 
608 
609 
610 
611 
612 
613 



TSTEIiD 



KEE?7 



KEEF71 



EQU 

LH 

EPSR 

LH 

AIS 

STH 

CIH 

BHLS 

BAL 

B 

LH 

BNZS 

LHI 

BAL 

LH 

CLH 

BL 



R1,PSW2 

R0,B1 

RO,COONT 

R0,1 

RO, COUNT 

S0,L00P+6 

KEEP7 

LINK.TSTBRK 

KEEP6 

PO.NOERR 

KEEP71 

R5,S0ER!1SG 

LISK, PRINT 

R1,BTESTN0 

RI.SELTSr 

!f EEPa 



DISABLE INT i PROCESSOR LEVEL 

IHCKEMENT CO^'ST 

IF COUNT > LOO?, 

GO TO NEXT TEST MODULE 

IF BREAK GO TO 3PTIN 

OTHERWISE, ??.P?.hT SA1E TEST 

LOOK 3 ERRQS FLAG 



PRINT "NO ERPOS" 

GET TEST ' 

IS THE LAST SELECTED TEST DON! 

NO, GO SELECT VE^T TEST 



ALL THE SELECTED TESTS ^ = S NOtJ HUN 



ABORT 



EQU 


* 


NOP 




BAL 


LIKK,TSTDU 


BHZ 


KEEP9 


LH 


R1,HASDL'1 


BHZ 


KEEP10 


BAL 


LIHK,TSTBRK 


LH 


ai,C0»TIS+6 


BNZ 


KEEP3 


BAL 


LINK,SETKB 


LHI 


R5,E0THSG 


BAL 


LISK, PRINT 


B 


OPTIN 



COME MERE TO A^ORT TEST SEQUENCE. 

RETURN »ITH ?1 = DU BIT 
IF DO, DISPLAY TOTAL 
WAS IT EVER ? 
YES, PRINT TOTAL, TOTERR 

IF CONTIN = 1, 

GO TO TEST 

KB DEVICE = LIST DEVICE 

•END OF TEST' 



300TINE INCREHEHTS, DISPLAYS £ CHECKS 'TOTAL- 



KEEPS 



KEEP91 



STH 

LH 

AIS 

STH 

LIS 

DC 

LH 

EXBR 

WHR 

EXBR 

WHR 

OC 

CLH I 

BNLS 

LH 

CLH 



R1,HASDU 

R1, TOTAL 

R1,1 

B1, TOTAL 

R2,1 

R2,INCR 

RO,TOTERR 

B0,R0 

R2,R0 

BO, HI 

R2,R0 

R2,N0RH 

R1,!t'7FFF' 

HALT9 

RO.BTESTNO 

80,3ELTST 



SET 'HASDU' FLAG 
IHCBEMEST TOTAL 



DISPLAY! INCaE>!ENTAL MODE 



DISPLAY TOTERR 
FORHAT FOR DISPLAY 
DISPLAY TOTAL 
DISPLAY: NOH>!AL fODE 
TOTAL < MAX RETAINABLE 

RO = CURRENT TEST « 
IS IT LAST TEST ? 



CHT0562C 
CHT05630 
CHTOSeaO 
CHT05f 50 
C1T05660 
CKT05670 
C>iT056aO 
CKT05690 
C!1T05700 
CMT0571Q 
CI1T05720 
CKT0573C 
CMT0574C 
C«!T0^7?C 
CHT05760 
CI1T05770 
CflT05790 
C>1T05730 
CHT05800 
CHI05810 
CKT05820 
CnT05330 
CMT058UC 
CPIT05850 
CBT05860 
CMT05870 
CMT05380 
CMT05890 
CMT0590C 
C«T05910 
CflTO5920 
CHT05930 
CMT059H0 
CHT05950 
CNT0596C 
CNT05970 
CST05980 
CMT0599C 
CHT06000 
CRT06010 
C!1T06020 
CnT06030 
CHT060U0 
C.1T06050 

CMToeoec 

CHT0607C 
CHT0608Q 
CRT06090 
C!^T0fi100 
CHT06110 
CMT06120 
ClTOfilSO 
CMT06140 



COHHON BAGKETIC TAPE TEST PROGSAH 06-172aO3A13 
EXEC - ETPE R03P2 ( H/CONDITICH AL ASSEBBLI) 



OEFA 
OEFE 

0F02 
0F06 
0F03 



l»280 0DF6 
«300 ODEC 

C8 10 OiJOF 

91111 

9521 



OFOA 


itlFO 


12DE 


OFOE 


2036 




0F10 


0700 




0F12 


4000 


1704 


0F16 


UIFO 


11A2 


0F1A 


C850 


1742 


0F1E 


l»0 50 


16FE 


0F22 


l»1F0 


112A 


0F26 


2U0« 




0F28 


1*8 50 


1708 


0F2C 


itlFO 


10DA 


0F30 


2't3U 




0F32 


cano 


0020 


0F36 


41F0 


11B0 


0F3A 


2731 




or3C 






0F3E 


2aott 




QFI»0 


4850 


170A 


OFUtt 


41 FO 


10DA 


0F48 


4300 


0AE6 



OFUC 


DOOO 


3FC8 


0F50 


4120 


0FB2 


0F54 


41E0 


0FE4 


■OF 58 


0700 




0F5A 


4000 


16FE 


0F5E 


48 20 


0A24 


0F62 


9502 




0F64 


D100 


3FC8 


0F68 


030F 




0F6A 


4000 


173E 


0F6E 


DOOO 


3FC8 


0F72 


4120 


0FB2 


0F76 


4U0 


0FE4 


0F7A 


41E0 


OFEE 


0F7E 


4300 


0F58 


0F92 


DOOO 


3FC8 


0F86 


41 EO 


33F2 


0F8A 


4120 


0FB2 


OFSE 


41E0 


0FE4 


0F92 


41E0 


101E 


0F96 


4300 


0F58 



614 




Bt 


KEEP 4 


615 




3 


KEEP3 


616 


* 






617 


HALT9 


LHI 


R1,X'80F' 


618 




SLHLS 


R1,4 


619 




EPSR 


R2,R1 


620 


* 






621 


♦ iiHES 


EXE/RUH IS PRESSED 


622 


* 






623 




BAL 


LIN(C,TSTDU 


624 




BffZS 


HALT9 


625 


KEEP10 


lAR 


RO,ao 


626 




STH 


RO,MASDU 


627 




BAL 


LINK,CRLF 


628 




LHI 


S5,T0THSG 


629 




STH 


R5,ISITERR 


630 




BAL 


LINK. PRINT 


631 




LIS 


R0,4 


632 




LH 


R5, TOTAL 


633 




3AL 


LINK,R5HEX 


534 




LIS 


R3,4 


635 




LHI 


R4,C" ' 


636 


KEEP101 


BAL 


LINK.OOTCHR 


637 




SIS 


33.1 


638 




BPS 


KES?10 1 


639 




LIS 


R0,4 


640 




LH 


R5,T0TERB 


641 




BAL 


LTHK.RSHEX 


642 




B 


OPTIH 


643 


* ************************ 


644 


* ERROR 


aOUTIKES 


645 


* 






646 


ERR 


STS 


RO.ESRSAVE 


647 




BAL 


S2,ER8COM 


648 




3AL 


RET, ERR1 


649 


ERRC0B2 


lAR 


RO.RO 


650 




STH 


RO.ISITERR 


651 




LH 


R2,PSH2 


652 




EPSR 


R0,R2 


653 




LM 


RO.ERRSAVE 


654 




3R 


LINK 


655 


ERR!) 


STH 


RO.EBRNO 


656 




ST« 


RO.ERRSAVE 


657 




BAL 


R2,ERRC0H 


658 




BAL 


BET.ERRI 


659 




BAL 


RET.EHRDI 


660 




B 


ERRC0?12 


661 


EflRDS 


srs 


RO.ERRSAVE 


662 




BAL 


BET.ERRDSA 


663 




BAL 


H2,ERPC0« 


664 




BAL 


RET.ERRI 


665 




BAL 


RET, ERRD31 


666 




B 


ERHC0N2 
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NO, 30 TO NEXT TEST 
GO TO TEST 



(HI) = X'aOFO' 
HALT PROCESSOR 

PRINT TOTAL £ TDTERS 

SEE IF LIST DEV IS OH 
NO, HALT 

RESET FLAG 



PRINT 'TOTAL TOTERR" 
TO PRINT 4 HEX DIGITS 

PRINT TOTAL IN HEX 

SPACE 
OUTPUT IT 

4 TlnES 

TO PRINT 4 HEX DIGITS 

PRINT TOTERR IN HEX 
GO TO BEGINNING 

{OVERRIDE NO»!SG OPTION) 

STORE REGISTRRS 

RETURN IF LIST DEVICE 13 ON 

PRINT • ERROR TTNN" 

RESET ERROR FLAG 
** * 

restore registers 

ret:;rn to test 

save error number 

stose registers 

return if list device 13 on 

print 'error ttnn' 

print 'dev ddd" 



»♦***** 



STORE REGISTERS 

SET UP ERROR NUN AND STATUS BYTE *• 

RETURN IF LIST DEVICE IS ON 

PRINT 'ERROR TTNN' 

PRIST 'DEV DDD STA SS' 



CHT06150 
CST06160 
CBT06170 
CKT06180 
C«T06190 
CKT06200 

cfToesio 

CHT06220 
C1TQ6 230 
C«T06240 
C.1Ta6250 
CRT06260 
C»T06270 
CMT06280 
CST06290 
C5T05300 
C1T06310 
CMT06320 
C!1T06330 
CMr05340 
CHT06350 
CNT06360 
C(!T0e370 
CHT06380 
CfiI06390 
CHT06400 
CBT06410 
CMT06420 
CST06430 
C1T06440 
CMT06450 
C?1I06460 
C«1T06470 
CST06480 
CMT06490 
CBIOebOO 
C»T06510 
CflT05520 
C!rT06530 
C'«T06540 
CHT06550 
C(1T06560 
C,>:r06570 

c^.Toesso 

CMT06590 
CKT06600 
C"T06610 
CMT06620 
C«T06630 
C.'1T066U0 
C.NT05650 
CMTC6660 
CNTa6670 



COBflOU RAGKETIC TMPE TEST PBOGBAN 06-172R03A13 
EXEC - ETPE R03P2 (H/COIIDITIONAL ASSEHBLT) 



0F9A 


DOOO 


3FC8 


0F9E 


'H20 


0FB2 


0FA2 


itlEO 


OFEi» 


0FA6 


U1E0 


101E 


OFAA 


11E0 


lOUU 


OFAE 


lt3C0 


0F58 



0FB2 


4020 


OFCC 


0FB6 


4810 


0A2II 


OFBA 


95C1 




OFBC 


ttlFO 


12DE 


OFCO 


2137 




0FC2 


U020 


16FE 


0FC6 


l»020 


1700 


OFCA 


0300 


OFCA 




0000 


OFCC 


OFCE 


U810 


170A 


0FD2 


2611 




OFDt 


<»010 


170A 


OFDa 


C510 


7FFF 


OFDC 


l»280 


0E06 


OFEO 


14300 


0F02 



OFEtt 
0FE8 



C8E0 1736 
HIFO 112A 



OFEC 030E 



OFEE 


2U03 




OFFO 


U810 


16D0 


OFFil 


C8 20 


1770 


0FF8 


HIFO 


1102 


OFFC 


C850 


176C 


1000 


U1F0 


112A 


1004 


030E 





1006 


2U02 




1008 


D310 


15D2 


100C 


CB20 


1768 


1010 


41 FO 


1102 


lOlU 


C8?0 


1764 


1018 


U1F0 


112A 



667 
668 
669 
570 
671 
672 
673 
674 
675 
676 
677 
678 
679 
680 
681 
682 
683 
6B4 
685 
686 
687 
688 
689 
690 
691 
692 
693 
694 
695 
696 
697 
698 
699 
700 
701 
70 2 
703 
704 
705 
706 
707 
708 
709 
710 
711 
712 
713 
714 
715 
716 
717 
718 
719 



EBRALL 



STR 
BAi 
BAL 
BAL 
BAL 
B 



HO.EBRSAVE 

R2,EBRC0K 

aET,EHR1 

3ET,EREDS1 

aET,ERRPL1 

ESBC0M2 
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STORE REGISTERS 

RETURN IF LIST DEVICE IS OH 

PRINT 'EKR09 TTNN" 

PRIST "DEV DDD STA SS" 

PRINT 'PSW PPPP LOC LILL' 



COMMON ERR03 ROJTUIE 



ERRCDN 



COM: 



EBR:3!11 



STH 

LH 

EPSR 

BAL 

BSZS 

STH 

STH 

B 

EQU 

LH 

AI3 

STH 

CLHI 

BL 

B 



H2,C0MRET 

31,?SH2 

R0,P1 

ilKK.TSTDU 

E8RC0.11 

S2,ISirERR 

H2,H0ERP 



31,T0TERR 

?1,1 

31,T0TERR 

R1,X'7FFF' 

KEEP91 

HALrg 



* M-3SAGE PRIST BDOTINES 

* TO PRINT 'ERROR TTNN' 



EBR1 



LHI 
BAL 

BB 



35,EHRH3G 
LIBICPBIHT 

RET 



ro PRINT 'DET ODD' 



EBRri 



LIS 

LH 

LHI 

BAL 

LHI 

BAL 

BR 



BO, 3 

HIrEfiRDEV 

B2,ASCIDEV2 

LINK.HEXASC 

85,DE\fNSG2 

LI»K,PBINT 

BET 



* TO PRINT 'STA SS ' 



ERSS1 



DI3A3L- TNT. i PROCESSOR LEVZL 
GET LIST DEVICE DU BIT IN R1 
BRANCH IF OFF-LINE 
SET ERRO? FLAG 

GO, P3INT EPRO? KESSSGF 



LIST DEVICE IS OFF 

INCREIENT TOTEPR 

TOTERR < MAX RETAINASLE ? 

NO, ABORT CUPRENT TEST 6, GOTO NEXT 

lES, HALT PROCESSOR 

(DO NOT OVERRIDE NOMSG OPTION) 



PRINT 'ERROR TTNN' 

TT = TEST #, NN = ERROR * 

RETURN 



SET UP DIGITS = 3 

R1 = ERROR DEV « IN BINARY 

CONVERT IT TO ASCII 

PRINT -DEV DD' 
RETURN 



LIS 


30,2 


SET OP DIGITS = 2 


L3 


B1,ER8STA 


R1 = ERROR STATUS 


LHI 


?2,ASCISTA 




BAL 


LINK.HEXASC 


CONVERT IT TO ASCII 


LHI 


35,STAMSG 




BAL 


LINK, PRINT 


PRIST "STA S3" 



CHT06680 
CriT06690 
CHT06700 
CMT06710 
CNT06720 
CBT06730 

CJ!T06750 
CMT06760 
CHT06770 
C,>(T06780 
CHT06790 
CKT06800 
CMT06810 
CBT06320 
CMT06830 
CMT06840 
C1I0685C 

CMToe-ieo 

CI1T06870 
C'iT06880 
CMT06890 
CMT06900 
CST06910 
C'1T06920 
CHT06930 
CnT06940 
CMT06950 
CflT06960 
CKT06970 
CMT06980 
CHT06990 
CHT07000 
CMT07010 
CBT07020 
CHT07030 
CHT07040 
CNT07050 
CHT07060 
CnT07070 
CHT07080 
CKT07090 
CHT07 100 
CNT07110 
CMT07120 
CHT07130 
CNT07140 
CHT07150 
CaT07160 
CPIT07170 
CBT071BO 
C!(T07190 
CMT07200 



COHHON R^GMETIC TAPE TEST PROGRAM 06-172H03ft13 
EXEC - ETPE R03P2 ( H/COBDITICHAL ASSEMBLY) 
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101C 030E 



101E 


2l»C3 




1020 


118 10 


16D0 


102« 


C820 


1760 


1028 


mfo 


1102 


102C 


2«02 




102E 


D310 


16D2 


1032 


C8 20 


1768 


1036 


41F0 


1102 


103A 


CB=0 


175C 


103E 


i»1F0 


112A 


10H2 


030E 





lOftft 


21»0<1 




101*6 


4810 


16CA 


104A 


C820 


177A 


10i»E 


aiFo 


1102 


1052 


l»810 


16CE 


1056 


C820 


178a 


105A 


alFO 


1102 


105E 


C8 50 


1776 


1062 


it1F0 


112A 


1056 


030E 





1068 


0766 




106A 


41F0 


121C 


106E 


2'iFF 




1070 


Dft«F 


171C 


107<t 


233* 




1076 


27F1 




1078 


22ia 




107A 


030C 




107C 


U890 


16Ct| 


1090 


2133 




1082 


91611 




1084 


2302 




1086 


116U 




1088 


066F 




108A 


aiFO 


121C 


108E 


C5K0 


005F 


1092 


2138 




109H 


4890 


16CU 


1098 


2133 




109A 


90611 




109C 


2302 




109E 


1064 





720 
721 
722 
723 
72l» 
725 
726 
727 
728 
729 
730 
731 
732 
733 
73l| 
735 
736 
737 
738 
739 
7I»0 
741 
742 
743 
744 
745 
746 
747 
748 
749 
750 
751 
752 
753 
754 
755 
756 
757 
758 
759 
760 
761 
762 
763 
764 
765 
766 
767 
768 
769 
770 
771 
772 



BB HET 

* TO PRIST 'DEV DDD STA SS' 

* 

EBRDSI 



aETURS 



iis 


R0,3 


SET UP DIGITS = 3 


LH 


fiUEBRDEV 


HI = ERROR DEV # 


LHI 


R2,ASCID£V 




BAL 


LI!iK,HEXASC 


CONVERT IT TO ASCII 


LIS 


HO, 2 


SET !JP DIGITS = 2 


LB 


R1,EHRSTA 


R1 = ERROR STATUS 


LHI 


R2,ASCISTA 




BAL 


LIH1C,HEXASC 


CONVERT IT TO ASCII 


LHI 


R5,DEV!!SG 




BAL 


LIMK, PRIST 


PBIKT 'DEV DD STA SS " 


BR 


RET 


RETyRS 



TO PRINT "PSW PPPP LOC LLLL' 



ERHPL1 



LIS 

LH 

LHI 

BAL 

LH 

LHI 

BAL 

LHI 

BAL 

BR 



R0,4 

R1,0PSH 

H2,ASCIPS« 

LIMK.HEXASC 

R1,0L0C 

R2,ASCIL0C 

LISICHEXASC 

a5,PSWMSG 

LIII!C,PRIHT 

RET 



******************************** ,r 
TO OBTAIN OPTIOS VALUE IN R6 



OPTVAL 

OPTVALO 
0PTVAL1 



0PTYAL2 



0PTVAL5 
0PTVAL6 
0PTVAL3 



0PTVAL7 



XAR R6,R6 

BAL RIS.GETCHR 

LIS 815.15 

CLB HU,HEXTAB(815) 

BES 0PrVAL2 

SIS R15,1 

BNHS 0PTVAL1 

BR R12 

LH R9,fOD32 

BNZS 0PTVAL5 

SLLS R6,4 

BS 0PTVAL6 

DC K'1164' 

OAR S5,R15 

BAL R15, GETCHR 

CLHI a4,X'5F' 

BHES 0PTVAL4 

LH R9,!!0D32 

BNZS 0PTVAL7 

SRLS R6,4 

BS OPTTALS 

DC X'1064' 



SET OP DIGITS = 4 
R1 = OLD PS« 

CONVERT IT TO ASCII 
R1= OLD LOC 

CONVERT IT TO ASCII 

PRIST 'PSW PPPP LOC LLLL- 
RETURN 

(16 BITS, TARGT 16) 

INITIALIZE ACCUMULATOR 
GET A CHAR IN R4 

SCAN TABLE 
•1ATCH 



FSHOR; VALUP NOT IN TABLE. 



GET NEXT CHAR 

IS IT LEFT ARROW 1 





C"T07210 




C!1T07220 




C1T07230 




CMT07240 




CrT07250 




C?!T07260 




CMT07270 




C>!T07280 




CnT07290 




C!?T07300 




C."!T07310 




CMT07320 




C1T07330 




CnT07340 




CHT07350 




C.1T07360 




C?1T07370 




CMT07380 




C!1T07390 




C>fT07400 




CnT07410 




CMT07420 




C!1T07430 




CHT07440 




CBT07450 




C.'1T07460 




C'1T07470 




CMT07480 




C.1T07490 




C!«T07500 




CMT07510 




C«IT07520 




CKT07530 




C!fT07540 




C1T07550 




CMT07560 




C.fT07570 




C1T07580 




C!!T07590 


* * 


CKT07600 


** 


C"T07610 


* * 


CMT07620 


* * 


C.1T07630 


* * 


CM07640 


* * 


C,1T07650 




CST07660 




CHT07670 




C»!T07690 


* tr 


C?1T0 7 690 


* ft' 


CHT07700 


* * 


C>!T07710 


* * 


C«T07720 


* • 


CKT07730 



COBHOM HAGKETIC TAPE TEST PECGRHH 06-n2R03A13 
EXEC - ETPE B03P2 { H/COIIDITIOK AL ASSEHBLT) 



10A0 


220B 




10A2 


C5i(0 


GOOD 


10A6 


033E 




10A8 


C51I0 


002C 


10AC 


11230 


106E 


1080 


030E 





10B2 


2U31 




lOBit 


C560 


OOOF 


1038 


033E 




10SA 


0^33 




10BC 


2661 




10BE 


2205 





10C0 


DCCO 


3F08 


10CU 


2«10 




10C6 


2a2i 




10C8 


1830 


0A1E 


10CC 


Clio 


10CC 


10D0 


2701 




10D2 


2037 




10Di» 


D100 


3F08 


10D8 


030F 





10DA 


DO 00 


3F08 


10DE 


0820 




10E0 


2721 




10E2 


211D 




10Ett 


9122 




10E6 


08H5 




10E8 


CC«2 


0000 


10EC 


c<mo 


OOOF 


10F0 


D3i|U 


171C 


10FU 


UlfO 


11 BO 


10F8 


2721 




10FA 


221A 




10FC 


D100 


3F08 


1100 


030F 





1102 


DOOO 


3F08 


1106 


0630 




1108 


9132 




110A 


273tt 




HOC 


O^ll 





773 
7711 
775 
776 

777 
778 
779 
780 
781 
782 
783 

Ten 

765 
786 
787 
788 
789 
790 
791 
792 
793 
79(1 
795 
796 
797 
798 
799 
800 
801 
902 
803 
804 
305 
806 
807 
808 
309 
810 
311 
812 
813 
814 
815 
316 
817 
318 
319 
320 
821 
822 
323 
97ii 
825 



OPTifALe BS 0PTlfAL3 

OPIVALt CLHI SI, 13 

BER Bl<t 

CLHI Sll,X'2C* 

BNE OPTVALO 

BR R14 
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EXIT IF CR 



OR CO^i.lA 

LOOP TO PROCESS 

RETJ^S 



• TO CONVERT (R6) FROM BIHART TO USARY PATTERN, IN 33 



USASr LIS 53,1 

USASri CLHI 56,15 

BER P1U 

AAR 33,^3 

AIS ?.6,1 

BS 'J li A ? Y 1 



ISITHLI^E 

DOhl ? 

RET:=!f 

NO. SHIF" P3. 

I!IC--E>!!:nT C'JUNTRR 



TO PROVIDE « OF MILLISECONDS DELAY 3F2CIFIED 3Y RO 



TI'EB 



TISXT 



st:i 


aO.RSAVE 


LIS 


P1,C. 


LIS 


32,1 


LH 


S3, TIME 


BXLE 


El,* 


SIS 


B0,1 


BNZS 


TI!1ER+4 


LM 


BO,HSAVE 


BR 


LI»K 



SAViT REGISTtRS 



R3 = TI^.E CO.NSTAST FOE 1 >!3 DELAY 



LOOP TILL SPECIFIED DELAY 
RESTORE REGISTERS 
RET'J?>I 



R5HEX PRINTS CONTENTS OF R5 IN HEX 



• PRINTS OPTO 4 DIGITS 

* 

R5HEX SIM BO,RSAVE 

IDAR R2,R0 

SIS B2,1 

BHS P5XB 

SLLS R2,2 

R5X LDAH a«,R5 

SRAL 8li,0(R2) 

MHI 8«,15 

LB Hft,HEXTAB(R4) 

R5IA BAL B15,0UTCHR 

SIS B2,4 

BNHS F5X 

R5XB Lf! ao,RSAVE 

BR LINS 



(3 DIGITS, TAEGT 32) 

ST0?E REGISTERS 

R2 = « OF DIGITS TO BE PRUTED 



R2 



4(DIGITS-1) 



R4 = HEX DIGIT 



LOOP TILL ALL DIGITS 

RESTORE REGISTER?; 
RETUSN 



* TO CONVERT HEXADECIMAL DATA IN R1 T3 ASCII CHAR & STORE i 0(?2) 

* 

HEXASC STfl BCRSAVE 

LDAH 83, SO 

SLLS R3,2 

SIS B3,4 

HEXASC1 LDAB PU.RI 



STC 


)il REGISTERS 


R3 


= DIGITS 


R3 


= i*(niGII3)-a 


S« 


= HE>: DATA 



CST077U0 
CMT07750 
CMT07760 
CHT0777O 
CMT07780 
CHT0779C 
CMT0780G 
CMT07810 
CMT0782C 
CMT07830 
CMT07b4C 
CMT0735C 
Cr!T0786C 
Cf1T07H7e 
CHT0788C 
CHT0789L 
CMT0790C 
CMT0791C 
CrT0792C 
CMT0793C 
CMT0794: 
CMT0795C 
CnT0796C 
CMT0797: 
CHT0798G 
CHT0799C 
CHT0800C 
CMT0801C 
CNT08020 
CMT0e03C 
CST0fl04G 
CHT08050 
CHT0806C 
CBT08070 
CHT08080 
CMT08090 
CMT08 10C 
CHTOSHC 
CMT08120 
CHT08130 
CHT0814C 
CMT0815C 
CnT0816C 
CST0817C 

CMToeiac 

C.1T0819C 
CHT08200 
CHT0a21C 
CHT08 22C 
CHT0823C 
CMT032UC 
CMT08250 
C1T0826C 



COMMON HAGHETIC TAPE TEST PROGRAM 06-172B03A13 
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EXEC 



ETPE 803P2 (W/COHDITIONAL ASSEMBLY) 



110E 


CC«3 


0000 


1112 


COUO 


OOOF 


1116 


D3!IM 


171C 


111A 


D2<l2 


0000 


111E 


2621 




1120 


273« 




1122 


221B. 




112l» 


D100 


3F08 


1128 


050F 





112A 


DOOO 


3F08 


112E 


aiFO 


12DE 


1132 


2335 




11311 


<»010 


17011 


1138 


'•300 


1198 


113C 


!»820 


no* 


IlltO 


1*330 


116E 


11H!| 


C810 


omo 


111*8 


C800 


1000 


imc 


2701 




114E 


2031 




1150 


2711 




1152 


2035 




1154 


07B« 




1156 


10 «0 


17011 


115A 


25lf1 




115C 


i»oao 


1706 


1160 


2H2I* 




1162 


«1f0 


11B0 


1166 


2731 




1168 


2023 




116A 


l»300 


0F10 


116E 


i»800 


17F8 


1172 


2335 




117U 


uaoo 


16FE 


1178 


«330 


1198 


117C 


D3«5 


0000 


1180 


4no 


11B0 


118a 


27HD 




1186 


2333 




1188 


2651 




118A 


2207 




113C 


2UUA 




118E 


ItlFO 


11B0 


1192 


25111 




119l» 


U1F0 


11B0 


1198 


aiFo 


126 A 


119C 


D100 


3F08 


11A0 


030F 





826 




SRAL 


B4,0<a3) 


827 




NHI 


R4,15 


828 




LB 


R4,HEXTAB(R4) 


829 




STB 


R4,0(R2) 


830 




AIS 


R2,1 


831 




SIS 


R3,4 


832 




BUMS 


HEXASC1 


833 




LM 


RO.RSAVE 


H3li 




BR 


LIHK 


835 
836 








* TO PRINT THE ASCII MESSAGE 


837 


* 






838 


PBini 


STM 


SOrRSAVE 


839 




BAL 


LIHK,TSTDU 


sua 




BZS 


P1 


81*1 




5TH 


R1,WASD0 


3«2 




B 


PRINTS 


81*3 


PI 


LH 


H2,HASDa 


81* <* 




BZ 


P3 


845 




LHI 


R1,X*140' 


sue 




LHI 


ao,X'10QO' 


8<»7 




SIS 


ao,i 


848 




BTBS 


3,1 


849 




SIS 


R1,1 


850 




BTBS 


3,5 


851 




XAR 


R4,R4 


852 




STH 


R4,tfASDU 


853 




LCS 


R4,1 


854 




STH 


R4,MASDU1 


855 




LIS 


8 3,4 


856 


P2 


BAL 


LINi<,OUTCHR 


857 




SIS 


R3,1 


858 




BPS 


P2 


859 




B 


KEEP10 


860 


P3 


LH 


RCJOMSG+e 


361 




BZS 


PRINT2 


862 




LH 


R0,ISITERR 


863 




BZ 


PRINT5 


864 


* 






855 


PRI!(T2 


L3 


R 4 , a ( R 5 ) 


866 




BAL 


LIMK.OUTCHR 


867 




SIS 


R4,13 


868 




BZS 


PRIST3 


869 




AIS 


R5,1 


870 




B3 


PRIfT2 


871 


pamT3 


LIS 


R4,10 


872 




BAL 


LINK,OUTCHR 


873 




LCS 


R4,1 


374 


Pfir.HT33 


BAL 


LINK,OUTCHR 


875 


PRI1T5 


BAL 


LIN<,rSTBRK 


876 




LM 


HO.RSAVE 


877 




BR 


LINK 


878 


*i. — -. 







R4 = HEX DIGIT T3 BE CONVERTED 

STORE ASCII cha;; 



LOOP TILL ALL DIBITS 
RESTORE REGISTERS 
HETURS 



STORE REGISTERS 



SET FLAG 
EXIT 



DELAY CONSTANT 



LOOP TILL TIIEO'JI 



CHARACTER = X'FF' 



PRIST TOTAL, TOIEBR 

NO, PRINT ALL MESSAGES 

NOT AN ERROR MSG. EXIT 

GET A MESSAGE PriE 
OUTPUT IT 
C3 ? 
1SG OVER 

LOOP FOR .NEXT CHAR 

LF 

LF 

DEL 

TERMINAL CHAP ACER 

RESTORE RKGISTE»r> 
RETURN 



CMT0a270 
CMT08280 
CMT08290 
CMT08300 
Cr1T08310 
CMTO8 320 
CKT08330 
CMT08 340 
CST08350 
CMTO8360 
CMT08370 
CMT08380 
CMT03390 
CMT08400 
CMT08410 
CMT08420 
CMT08U30 
CMT08440 

cMToeaso 

CMT08460 
CMT03470 
CMT08480 
CMT03490 
CMT08500 
CMT08510 
CMT08 520 
CMT08530 
CMT08540 
CMT08550 
CMT08560 
CMT08570 
CMT08580 
CMT08 590 
CMTOS600 
CMTOS510 
CMT08620 
CMT08630 
CMT03640 
CMT08650 
CMT08660 
CMT08670 
CMT08680 
CKT08690 
CMT08700 
CMT03710 
CMT08720 
C''.T0376Q 
CMT08770 
CMT08300 
CMTO3310 
C.MT03«20 
CMT0S'J3C 
CMT08840 
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11A2 


DOOO 


3F08 


11A6 


244D 




11A8 


«1fO 


11B0 


IIAC 


43C0 


113C 


11B0 


40F0 


1218 


1134 


D3C0 


3E47 


1139 


2704 




118A 


4230 


11EC 


11BE 


4000 


121A 


11C2 


ano 


12DE 


11C6 


4230 


1212 


11CA 


9D01 




11CC 


2385 




11CE 


4810 


121A 


11D2 


2038 




11D4 


230C 






0000 


11D6 


11D6 


9B01 




11D8 


C410 


007F 


11DC 


CE10 


0012 


11E0 


2336 




11E2 


2712 




11E4 


4330 


11BE 


11E8 


4300 


11C2 




0000 


11EC 


11EC 


4010 


121A 


11F0 


41F0 


12DE 


11F4 


213F 




11F6 


4110 


134A 


UFA 


9D01 




11FC 


213B 




11FE 


C510 


OOOC 


1202 


2338 




1204 


C310 


0008 


1208 


20 37 




120A 


9A04 




120C 


9D01 




120E 


2081 




1210 


2303 




1212 


4010 


1704 


1216 


4300 


1216 


121A 


0000 





121C 
1220 



4140 1312 

9C04 



879 
880 
881 
882 
883 
884 
885 
886 
887 
888 
889 
890 
391 
892 
393 
894 
895 
896 
397 
398 
399 
900 
901 
902 
903 
904 
905 
906 
907 
903 
909 
910 
911 
912 
913 
914 
915 
916 
917 
918 
919 
920 
921 
922 
923 
924 
925 
926 
927 
928 
929 
930 
931 



• SHALL SUPPOBT BOUTIKES 

* TO OUTPUT Ca,LF TO LIST DEVICE 



STH RO,SSAVE 

LIS R4,13 

SAL LI!«K,OUTCHR 

B P8INT3 



CRLF STH RO,SSAVE STOPE R■^r;^ST?RS 

OUTPUT CP 

LINE FK'J), R'I'STORE, HEIUSN 

LIST DEVICE 

SAVi" RETUSS ADDRESS 



B = A'^CH IF NOT CAKOfJSKL 

OS LIME ? 

S3, BRANCH 

3ET CARO'ISEL STATUS 

BPAVCH IF CHAR. 13 TO BE ?EAD 

?A'J5KD NOW ? 

YES, LOOP 

SO, ^0 OUTPUT CHARACTER 

GET CAROUSEL CHARACTER 

DC2 ? 

Its, BRASCH 

DCS ? 

lES, GO SET PAUSE FLAG 

NO, GO WAIT FOR DC2 

RESET FLAG 
OFF-LIKE ? 
BRASCH IF OFF-LINE 
SET UP FOR OUTPUT 
WAIT FOR NOT BUSY 
BRANCH IF OFF-LINE 
PASLA OFFLINE ? 
BRANCH: YES. 
BUST ? 

WAIT FOR NOT SUSY. 
OUTPUT DATA BYTE 

WAIT FOR SOT BUSY. 

SET FLAG 

SET'JRN AS SET UP ABOVE 

SET DURING TRANSMISSION PAUSE 

* TO GET A CHAR FROM fCETRQARD (IN BCG 04) 

GETCHR BAL B4,KB8EAD PUT K3 DEVICE IN READ KTDE 

SSfi R0,R4 



* TO OUTPUT A 


CHARACTER TO THE 


OOTCHR 


STH 


R15,0UT1+2 




LB 


R0,I0SAYE+1 




SIS 


P0,4 




BNZ 


0UTCHR2 


OTC. 


STH 


HO, PAUSE 


OTC.O 


BAL 


LISK,rSTDU 




BNZ 


OUTO 




SSR 


30,81 




3FFS 


8,0TC.1 




LH 


R1, PAUSE 




BNZS 


OTC.O 




BS 


DUTCHR2 


0TC.1 


EOU 


« 




RDR 


R0,R1 




HHI 


31,jf*7F* 




SHI 


ai,x'i2' 




BZS 


0UTCHfi2 




SIS 


SI, 2 




BZ 


OTC. 




B 


OTC.O 


0UTCHR2 


EQU 


* 




STH 


R1, PAUSE 




BAL 


LINK,TSTDU 




BNZS 


OOTO 




BAL 


SI, SETUP 


OTC. 4 


SSR 


R0,R1 




BTFS 


3, OUTO 




CLHI 


R1,12 




BES 


OUTO 




THI 


R1,8 




BNZS 


OTC. 4 




WDR 


R0,R4 




SSR 


30, R1 




ETBS 


3,1 




BS 


0UT1 


OUTO 


STH 


R1,WASDU 


CUT1 


3 


* 


PAUSE 


DCX 





* «««. 







CHT03850 
CHT0886G 
CHT08a7C 
CHT08B8C 
C!!T0889D 
C"!T08900 

CHToegic 

CHT0R92C 
C>fT0893C 
C«T089U? 
CHT0895C 
CMT0896: 
CHT0897: 
CHT0899: 
CirT08,99: 

c-iTogooc 

CHT0901C 
CHT0902C 
CKT0903v 
CHT0904C 
C.1T0905: 
CHT0906C 
CMT0907G 
CHr0908C 
CHT09090 
CRT0 910C 
CST09110 
CHT0912G 
CNT09130 
C1T0914C 
CMT0915C 
CaT0916: 
CMT0917C 
C«IT09ieo 
CHT0919 J 
CnT0920C 
CMT0921G 
CHT09220 
CaT0923C 
CMT0924O 
C!"T0925: 
CNT09250 
CST0927C 
CfIT0928: 
CMT0929C 
C«T0930C 
CHT09310 
CHT0932& 
CHT0933: 

CHT09 350 
CMT09360 
Ci1T0937C 
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1222 


021F 




1221* 


2082 




1226 


DttCO 


0A1A 


122A 


2333 




122C 


9B0I» 




122E 


2303 




1230 


9B0tt 




1232 


9ACU 




123« 


D390 


16DC 


1238 


C590 


00A9 


123C 


2137 




123E 


D390 


16DB 


12U2 


DD90 


16D3 


1246 


2082 




1248 


9fl9« 




12UA 


CUUO 


007F 


12UE 


030F 





1250 


«1F0 


11A2 


125i» 


liOFO 


16FE 


1258 


C8E0 


17B2 


125C 


l»1F0 


112A 


1250 


0700 




1262 


UOOO 


16FE 


1265 


l»300 


OAEA 



126A 


DOOO 


3Fa8 


126E 


UOFO 


12DC 


1272 


D3C0 


16DA 


1276 


9D01 




1278 


C310 


0020 


127C 


1*330 


12D0 


1280 


D320 


0A1O 


12814 


C520 


0005 


1288 


213!) 






0000 


128A 


123A 


9B02 




128C 


9D01 




128E 


C310 


0020 


1292 


l»330 


12C1» 


1295 


C810 


7FFF 


129A 


2711 




129C 


2031 




129E 


i»3C0 


128A 




0000 


12A2 


12A2 


4820 


1606 


12A6 


233B 




12A8 


C310 


0008 



932 




BTCfi 


I.LINK 


IF DU, RETURN 


933 




BTBS 


8,2 


IF BUSY. LOOP 


934 




CLB 


R0,«ICR0BUS 


IS IT BICROB'JS ? 


935 




BES 


ECH01 


YES, BRANCH 


936 




HDR 


ao,R4 


^EAD A CHAR IN ??« 


937 




BS 


ECHO 




938 


ECH01 


BDR 


R0,R4 




939 




HDB 


R0,R4 




940 


* TO ECHO SECE 


IVEC CKflSACTERS TO 


C0S30LE DEVICE IK FDX HOD 


941 


ECHO 


LB 


a9,C0»RD 




942 




CLHI 


R9,X*A9' 


CAROUSEL ? 


943 




BHES 


ECHRTN 


DO NOT ECHO 


944 




LB 


R9,C0SADa+1 




945 




SS 


R9,SINK 




946 




BTBS 


8,2 




947 




BDR 


R9,H4 


ECHO RECEIVED BYTE 


948 


ECHBT.N 


HHI 


R4,X*7F' 


REBOVE PARITY BIT 


949 




BR 


LINK 


RETURN 


950 


*.••—••••. 
















951 


* TO OOTP'JT .! 


?• TO CONSOLE 




952 


* 








953 


QUESTS 


BAL 


LINK,CSLF 




954 




STH 


LINK,ISITERR 


SET FLAG 


955 




LHI 


R5,gHSG 




956 




BAL 


LINK, PRINT 


PRINT '?■ 


957 




XAR 


R0,B0 




958 




STH 


RO,ISITERE 




959 




B 


OPTINI 


TO ACCEPT COHflAND INPUT 


960 


*••_ •••• 
















961 


* IF BREAK KEY 


DEPRESSED, GD TO ' 


'OPTIN' OR (BRKVECD; ELSE 


962 


* 








963 


TSTBBK 


STN 


R0,8SAVE+64 


STORE REGISTERS 


964 




STH 


LI»K,BRK8T[I 




965 




LB 


R0,CONADR 


GET KEYBOARD DEVICE «EP 


966 




SSR 


R0,R1 




967 




THI 


R1,X'20' 


•BREAK' KEY PRESSED ? 


968 




BZ 


TSrS8K3 


NO. EXIT 


969 




LB 


R2,I0 




970 




CLHI 


R2,5 


IS II HICRO'^iJS ? 


971 




BHES 


TSTBBK4 


NO, BRANCH 


972 


TSTBBK5 


E3U 


* 




973 




RDR 


R0,R2 




974 


TSTBRK5A 


SSR 


ao,Ri 




975 




THI 


R1,X'20* 




976 




BZ 


TSTBRK2 




977 




LHI 


R1,X'7FFF' 




978 




SIS 


R1,1 




979 




BTBS 


3,1 




980 




3 


TSTBRK5 




981 


TSTBRK4 


Eau 


* 




982 




LH 


R2,PASFLG 


PASLA ? 


983 




BZS 


rSTBRKI 


BRANCH IF NO. 


984 




THI 


R1,8 


ALREADY ACKNOWLEDGED ? 



CJIT09330 
C.1T09390 
C.1T09 40 
C?1T03410 
C?1T09U20 
C!1T09430 
CST09U40 
C?!T09U50 
CnTG9 460 
CBT09470 
C1T09480 
CHT094gO 
CST09500 
CHT09510 
CJ1T09520 
CMT05530 
CNT09540 
CaT09550 
CNT09560 
CST09570 
CHT09580 
CMT09590 
CKT09600 
CHT09610 
C:iT09620 
CNT09630 
CBT09640 
CST09650 
CKT09660 
CRI09670 
C«T09680 
CKT09690 
C,1T09700 
C^T09710 
CST09720 
CNT09730 
CBTOg^aO 
C,1T097S0 
CMT03760 
CHT09770 
CMT097SC 
CCT09790 
C.1T09300 
CKT0991C 
C!1T09820 
CKT09S30 
C.'!T09840 
C.i:09S50 
Cf1T0i660 
CHT09!370 
0110^380 
C'!T0??90 
CST09J0Q 
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12AC 


tt230 


12D0 


12B0 


9B02 




12B2 


9D01 




12Btt 


2281 




12B6 


0822 




12B8 


213C 




128A 


2305 




12BC 


9D01 




12BE 


C310 


0020 


12C2 


2033 




12CU 


48F0 


16FC 


12CS 


!f330 


QAE6 


12CC 


itOiO 


12DC 


12D0 


2«00 




12D2 


1*000 


16FC 


12D6 


D100 


3F«8 


12DA 


1*300 


12DA 




0000 


12DC 



12DE 


D310 


3Ei»7 


12E2 


9111 




12E« 


D3X)1 


0A1O 


12E8 


9D01 




12EA 


4880 


16D8 


12EE 


2338 




12F0 


cmo 


OOFC 


12Fl» 


C510 


OOOC 


12F8 


2133 




12FA 


0811 




12FC 


030F 




12FE 


CKIO 


0001 


130 2 


030F 





1301* 


D3C0 


0A10 


1308 


9aio 




130A 


0610 




130C 


l»010 


3E1I6 


1310 


030F 





1312 


D300 


16DA 


1316 


DEOO 


16DC 


131A 


DBOO 


16D3 


131E 


lt890 


16D6 


1322 


a200 


1322 


1326 


0334 




1328 


DEOO 


16F4 


132C 


0301* 





985 

986 

987 

988 

989 

990 

991 

992 

993 

991* 

995 

996 

997 

998 

999 

1000 

1001 

1002 

1003 

1001* 

1005 

1006 

1007 

1008 

1009 

1010 

1011 

1012 

1013 

1014 

1015 

1016 

1017 

1018 

1019 

1020 

1021 

1022 

1023 

1024 

1025 

1026 

1027 

1028 

1029 

1030 

1031 

1032 

1033 

1034 

1035 

1036 

1037 



TSTBRK1 
TSTBBK2 
TSTBHK3 

B8KRTM 



SNZ TSTBBK3 
BOB H0,S2 
SSR R0,S1 
BFBS 8,1 
IDAR B2,R2 
BNZS TSTBRK3 
3S TST3RK2 

R0,S1 

R1,X'20' 

3,3 

R15,BRKV£Cr 

OPTIS 

R15,BRKRTN 

R0,0 

RO,BRKVECT 

R0,RSAVE<-64 



SSR 

THI 

BT3S 

LH 

8Z 

STH 

LIS 

STK 

LM 

B 

EOU 



BRANCH IF YES 



ZERO CHARACTER ? 

BRANCH: JUST FPA.'IS^ ERROR 



HAIT FOR BREA< KEI PELEASE 
CHECK FOR SPECIAL kDlTlHE 
BRK W/N3 VECTOR: TO K-XJC. 
SET UP FOR EXIT 

DELETE VECTOR AFTER ONE SHOT. 
RESTORE HEGISTER:S 
RETURN TO PPOGRA* 



♦ SEE IF LIST DEVICE OFF-LINE (Rl, CC MON-ZERO IF OFF) 



TSTDU LB R1,I0SAVE+1 

SLHLS R1,1 

LB R0,I0(B1) 

SSR B0,R1 

LH R8,PASFLG2 

BZS TSTDU1 

BHI RI.X'FC* 

CLHI BI.X'OC 

BffES TSTDUI 

LDAR B1,R1 



TSTDUI 



BR 

NHI 

BR 



LINIC 
S1,1 
LIMK 



GET LIST DEVICE IDENTIFIER 

(R1) = 2, 4, 6,8, A 

GET LIST DEVICE ADDRESS 



BRANCH IF LIST DEVICE NOT PASLA 

BST £ EX SET ? 

BRANCH IF PASLA ON-LIHE 

PASLA OFF-LINE 
(R1) = DU BIT 
RETUEM 



TO DIRECT IHPUT AMD OUTPUT TO CONSOLE DEVICE 
SETKB LB R0,IO GET KEYBOARD DEVICE 



LB R0,IO 

EXBB B1,H0 

OAR B1,R0 

STH RI.IOSAVE 

BB LIRK 



KB DEVICE = LIST DEVICE 
RETURN 



TO PUT KEYBOARD DEVICE IN READ HODE 



KBREAD 



TIYGET 



LB 
DC 
RD 
LH 

BOP 
BZR 
OC 
BR 



R0,COKADH 
R0,CONBD 
RO,SINK 
R9,PASFLG 

* 

R4 

H0,C0N832S 

R4 



PASLA ? 

FOR SPECIAL "(B DEVICE 

RETURN 

RETURN 



C.1T09 910 
CRT09920 
C1T09930 
CflT09940 
C>!T03950 
CHT09960 
CRT09970 
CST09930 

cmoi9')o 

CnTIODOO 
CBTIOOIO 

ci«rioo2o 

CI1T10030 
CHTIOOUO 
CRT13050 
C>!T10060 
C?iT1D070 
CBT10080 
CST10090 
CfTIOlOO 
CKT1&110 
CaT10120 
C11T10130 
CHT10140 
CST10150 
C.1T10160 
CHT10170 
CRT1018Q 
CHT10190 
C!!T10200 
CnT10210 
CKT10220 
C?iT10230 
CHT10240 
CHT10250 
CBT10260 
CST10270 
CHT10280 
CST1029 
CHT10 30 
CHT10310 
^110320 
CHT10330 
CKT10340 
CJ1T10350 
CBT10360 
C»T10370 
CHT103aO 
C9T10390 
CI1T10400 
CBT10410 
C11T10420 
CKT 10430 



132E 


DOOO 


3F08 


1332 


D300 


16DA 


1335 


4810 


16D6 


133» 


2333 




133C 


DF.0O 


16F4 


13(»Q 


DEOO 


16E9 


1344 


D100 


3F08 


1348 


03CF 
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EXEC - ETPE B03P2 (K/COHDITIOII AL ASSE.IBII) 

CMTiouao 

4ITH IMT EHA3LED CaT10i450 

C»(T10460 
SAVE BEGISTERS CMT10470 

GET K3 DEV ADB CNTIOIBO 

PASLA 7 CST10U90 

CHT10500 

C1T10510 

CONSOLE : ESSBLE, SEAD CnT10520 

RESTORE REGISTERS CKT10S30 

RETURN CMT10540 

C«T10550 

CHT10560 

C!IT10570 

CST10580 

GET LIST DEVICE IDESTIFIER CNT1059C 

HW INDEX CMT10600 

GET LIST DEVICE ADDRESS CHT10610 

CNT10620 
RETURN CMT10630 

Ciri0640 
C.1T10650 
C.1T10660 
CHT10670 
CNT10680 
-„. „ , „ CNT10690 

1364 C830 004E 1064 LHI R3,X'4E' C>IT10700 

CnT10710 
CHT10720 
CMT10730 
CKT10740 
C1T10750 
CPT10760 
FFOM X*80' THRU X'CF' C!1T10770 



134A 


4010 


135E 


134E 


D310 


3E47 


1352 


9111 




1354 


D301 


3A11 


1358 


DE01 


16DD 


135C 


4300 


135C 




0000 


135E 



1360 0/11 
1362 2422 



1038 
1039 


• 


TO SET UP KETBOARD DEV TO B 


1040 


* 








1041 


K3RD 


STH 


BO,RSAVE 


1042 






LB 


R0,CONADB 


1043 






LH 


RI.PASFLG 


1044 






BZS 


KBBDI 


1045 






OC 


P0,C0NRQ23 


1046 


roori4 


OC 


H0,COSE'!?D 






11*^ 1 


1047 






LH 


RO,BSAVE 


1048 






BR 


LINK 


1049 
1050 


*. 








♦ 


LIST 


DEVICE 


SET UP ROnTINE 


1051 


* 








1052 


SE 


TUP 


STH 


RUSET.ETS 


1053 






LB 


S1,I0SAVE+1 


1054 






SLHLS 


R1,1 


1055 






LB 


BO, 1 0+1 (ED 


1056 






OC 


RO,CONHRT(ai) 


1057 






B 


* 


1058 


SET.BTN 


EQU 


*-2 


1059 


* 




1060 


* 


LOW 1 


COBE SET OP BOUTISE 


1061 


• 








1062 


LCORE 


XAR 


BI.RI 


1063 






LIS 


R2,2 


1064 






LHI 


R3,X'4E' 


1065 






XAR 


RO,RO 


1066 


ZEB01 


STH 


R0,O(R1) 


1067 






BXLE 


R1,ZER01 


1068 






LHI 


R1,X'80* 


1069 






LHI 


R3,X'CE' 


1070 


Zl 


P02 


STH 


R0,0(31) 


1071 






BXLE 


R1,ZER02 


1072 






LHI 


R0,XI32 


1073 






LHI 


R3,X*8CE' 


1074 


2EF?03 


STH 


ao,o(Ri) 


1075 






BXLE 


ai,ZER03 


1076 






LHI 


R3,II 


1077 






STH 


R3,X'36' 


1078 






LHI 


RU,!1M 


1079 






STH 


84,X'3E' 


1080 






LHI 


R3,AF 


1081 






STH 


H3,X*4E' 


1082 






LHI 


R3,F08FA'JLT 


1083 






STH 


R3,X"CE" 


1084 


* 








1085 






LHI 


R4,R3AVt: 


1086 






IFZ 


ADC-2 


1087 






LH 


R1,M0D32 


1088 






BNZ 


LC0RE3 2 


1089 


* 









1368 0700 

136A 4001 0000 

136E Clio 136A 1067 BXLE R1,ZER01 ZERO CORE FS0.1 THRU X'4F' 

1372 C810 0080 

1376 C830 DOCE 

137A 4001 0000 

137E C110 137A 1071 BXLE R1,ZER02 ZERO CORK 

1382 C800 14B8 1072 LHI R0,XI32 INTERRUPT lAVDLKR ROUTINE C!«Tia783 

1336 C830 OaCE 



CNT10790 
CMT10800 
CMT1D810 
C1T10320 
CHT10830 
CMT10840 
C.1T 10850 
C1T10860 
CMT10870 
CNT10880 
CMT10890 
FIXED PT DLVXTE FHULT NFV P3M LOC C1T10900 

CMT10910 
CI1T10920 
CflT10<?30 
Cf1T10940 
, „ CMT 10950 

1090 * SET UP LOW CORE FOR 16 BIT MACHINE CftT10960 



138A 4001 0000 

138E Clio 1J8A 1075 BXLE ai,ZER03 SET UP INT ~£RVICE POINTER TASLr 

1392 C830 15C4 1076 LHI R3,II 

1396 4030 0036 1077 STH R3,X'36' ILL INST IST HE.J P5H LOC 

139A C840 15DE 1078 LHI RU,!1M 

139E 4040 003E 1079 STH S4,X*3E' M. M. INT S?.W PSA LOC 

13A2 C830 1590 1080 LHI R3,AF 

13A6 4030 a04E 1081 STH H3,X'4E' ARITHIEPIC FAULT NEW PSW L0C(32-8IT) 

13AA C830 1579 1082 LHI R3,F08FA'JLT DATA Foar\TFAULT 

13AE 4030 OOCE 

1382 C840 3F08 

13B6 

13B6 4810 16C4 

13BA 4230 13DC 



13BE 


40«0 


0022 


13C2 


C8 30 


157E 


13C6 


itOBO 


002E 


13CA 


tt850 


0»2U 


13CE 


«05O 


ooun 


13D2 


C8^0 


luAA 


13D6 


aoso 


00'46 


13DA 


030F 





13DC 


4040 


0086 


13E0 


C8 40 


3F00 


13EH 


4040 


0084 


13E8 


C8 30 


1586 


13EC 


4030 


009S 


13F0 


D310 


16DA 


13F11 


0A11 




13F6 


C800 


1414 


13FA 


4001 


OODO 


13FE 


0711 




1U00 


C8 30 


14B8 


mou 


4821 


1970 


1U08 


021F 




1II0H 


0A22 




1l»0C 


4032 


OODO 


1410 


2612 




1412 


2207 





1414 


C330 


0020 


1418 


0330 


145C 


141C 


D300 


0A10 


1420 


C500 


000 5 


1424 


213C 




1426 


de:o 


16E6 


142A 


9D23 




142C 


20 81 




142E 


9B2« 




1430 


9D23 




1432 


C330 


0020 


1436 


2034 




1438 


4300 


1498 




OOCO 


143C 


143C 


48 50 


16D6 


1440 


2339 




1442 


9B24 




144 4 


9C25 




1446 


2281 




1448 


0844 





CONHOII HAGHETIC TAPE TEST PBOGBA" 06-172a03A13 PAGE 22 13:07:45 08/16/79 

EXEC - ETPE a03P2 ( B/CONDITIORAL ASSEHBLI) 

1091 * CST10970 

1092 STH H4,X*22* REG SAVE POINTER CHT10980 

1093 LHI R3,FP CST10993 

1094 STH B3,X*2E' FLOATIHG PT FAUT.T IST HEH P3W LOG CHTIIOOO 

1095 LH B5,PS«2 CHT11010 

1096 STH R5,X'44' HW EXT INT SEJ PjiJ STATUS Cf.T11020 

1097 LHI B5,XI16 CST1103C 

1098 STH R5,X"46* EXT INT SEW PSW LOC C»IT1104C 

1099 BR LINK C»1T1105Q 

1100 ENDC C«T11060 

1101 * C3T1la70 

1102 * Sn UP LOW CORE FOR 32 BIT MACHIVE C!iT11090 

1103 • C»!T1109C 

1104 LCO-iE32 STH a4,X*a6' REG SAVE POINTEH CrTlllOO 

1105 LHI R4,P3WSAVE PPF PSW SAVE AREA C?1T11110 

1106 STH R4,X'84* . POIMTEE CnT1112C 

1107 LHI R3,'»p C1T11130 

1108 STH R3,X'96' RELOC/PROTECT INT HEW PSW LOC CMT1114C 

1109 LR P1,CaNADP LOAD CQISOL?: 1/3 ADDRESS CST1115: 

1110 AAR R1,R1 C?(T11150 

1111 LHI RO.ICBISTO RO = A(XEYBDARD INT HASDLER) C1T11170 

1112 STH RO,X'D0'{B1) STORE 3 X'no'+2(K3 DEV ADR) C.1T11190 

1113 XAR R1,R1 TO SET UP SFRVICE PQINTiB TABLE C:iTin90 

1114 LHI R3,XI32 CI'T1120C 

1115 LC0aE32A LH R2,D£VSADR( 81 ) GET DEV ADR F80?1 TABLE C(1T11210 

1116 BHR LINK DONE. RETURN C!1T11220 

1117 AAR H2,R2 CHT11230 

1118 STH R3.X'D0'(R2) STORE S X'D0'+2(CEV ACR) C.1T11240 

1119 AIS R1,2 C<1T11250 

1120 BS LC0RE32A C?(T11250 

1121 * C1T11270 

1122 * KETBOABD INTERRUPT HANDLER CF1T11280 

1123 • CHT11290 

1124 KEINTO THI R3,X*20' IS BREAK KEY DEPRESSED ? CMT11300 

1125 BZ KBIST1 NO CBT11310 

1126 LB R0,IO CHT11320 

1127 CLHI R0,5 IS IT KICRORUS ? Cf1T11330 

1128 BNES KBISTOB MO, BRANCH CBT11340 

1129 OC 82,«READC YES, ISSUE READ C!1T11350 

1130 SSR R2,R3 CMT11360 

1131 BTBS 8,1 CMT11370 

1132 SBIJiTOC BDR R2,R4 KNOCK DOWS BREAK CJ1T11380 

1133 SSR R2,R3 CHT11390 

1134 THI R3,X'20' BREAK STILL THERE ? CHT11400 

1135 BNZS KBINTOC YES, KNOCK IT DOWN AGAIN C«T11410 

1136 B RFTOPSW NO, RETURN OS OLD PSW CHT1142C 

1137 K3INT0B E3U * CHT11430 

1138 LH R5,PASFLG CONSOLE ON PASLA ? CNT1144C 

1139 BZS KBINTOA BRANCH IF NO. CMT11450 

1140 RDR R2,R4 C!1T11460 

1142 BFBS 8,1 CaXIIURO 

1143 IDAH Ra,sa CMTiiago 



COMflON U'iifTlC TflPt: TKSI FSOCiHA?! 06-172R03S13 
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EXEC - FTPi E03P2 (H/CONDITION AL ASSEflBLY) 



UttA 


1*230 


11*98 


1Ui*E 


1*300 


11*70 


U52 


9D23 




m54 


C33C 


3020 


1458 


20 33 




1f»5A 


220e 






OOOC 


14SC 


1145C 


C500 


0005 


1«60 


2138 




1462 


DE20 


16E6 


11*66 


9D23 




1i»68 


2081 




1U6A 


9B5* 




1l»6C 


U3CC 


11198 




OOCO 


1470 


11*70 


a020 


16D0 


1l|7« 


D230 


16D2 


11*78 






11178 


1*810 


16C1I 


1I47C 


2335 




1l*7E 


UOOO 


16CA 


1«82 


H010 


16CE 


11*86 


9B211 




liiSS 


aiFC 


123* 


1U8C 


1*890 


16FA 


11*90 


0239 




1492 


D320 


0A10 


1496 


9B24 







OOCO 


1498 


11*98 






1498 


4890 


16C4 


1490 


2135 




149E 


D100 


3E48 


14A2 


C200 


0040 


14A6 


C200 


16C8 


14AA 






14AA 


DOOO 


3E48 


14AE 


9F23 




14B0 


D420 


16DA 


14B4 


4330 


1414 




0000 


14B8 


1488 


95A» 




14BA 


40A0 


16C6 


14BE 


4020 


16D0 



1144 




BNZ 


RETOPSW 


1145 


KBISTOO 


B 


KBINT3 


1146 


KBINTOA 


SSB 


R2,R3 


1147 




THI 


S3,X'20' 


1148 




BTBS 


3,3 


1149 




BS 


KBIHTOO 


1150 


KBINT1 


EQU 


* 


1151 




CLHI 


R0,5 


1152 




BNES 


KBrNT3 


1153 




OC 


R2,HREADC 


1154 




SSR 


R2,R3 


1155 




BTBS 


3,1 


1156 




RDB 


H2,R4 


1157 




B 


RETOPSW 


1158 


K3INT3 


E3U 


* 


1159 




STH 


R2,INTDEV 


1160 




STB 


R3,I»rSTA 


1161 




IFE 


A DC- 2 


1162 




LH 


R4,!10D32 


1163 




BZS 


KBIST2 


1164 




ENDC 




1165 




STH 


HO.OPSW 


1166 




STH 


R1,0L0C 


1167 


KBINT2 


RDR 


R2,R4 


4 4 f O 




RSL 


jjiSK r c.x-n^ 


1169 




LH 


S9,KBII(T 


1170 




BNZR 


R9 


1171 


N035K 


LB 


R2,I0 


1172 
1173 


* __•.—. 


RDR 


R2,R4 








1174 


* 10 8ETURM ON OLD PSW 


1175 


• 






1176 


RETOPSW 


EQU 


* 


1177 




IFZ 


ADC-2 


1178 




LH 


R9,'«OD32 


1179 




BNZS 


RETJP3W1 


1180 




LS 


RO,INTSAV 


1181 




LPSW 


X*40* 


1182 




EHDC 




1183 


HET0PSK1 


LPSM 


0PSW32 


1184 


* ************************** ******* 


1185 


• EXTERNAL IflTEfiRUPT HANDLER 


1186 




IFZ 


ADC-2 


1187 


XI16 


STH 


RO.INTSAV 


1183 




ACKR 


R2,R3 


1189 




CLB 


R2, GONADS 


1190 




BE 


KBINTO 


1191 




ENDC 




1192 


* 






1193 


XI32 


EQU 


* 


1194 




EPSR 


S10,R10 


1195 




STH 


R10,INTPSW 


1196 




STH 


R2,I»TDEV 



IGNOFE f?.Z?^ ONLY 
* * # 



WAIT FOS BREAK RELEASE 
GO TO CO>!KA<D "ODE 

IS IT !1IC?03'JS ? 

NO, 3SASCH 

READ CO'f'IANa TO SICBOBUS 



KNOCK DOWN INTERRUPT 
RETURN 



STORE OLD P3W OF 32-BIT PROCESSOR 
IS ORDER TC RETURN BACK TO TEST 



ci^un p vnyTX 



rn a VT r 



IF ZERCIGNORE; ELSE 

GO, PROCESS :<B INT FURTHER 



* * 



RESTORE REGISTERS 

SET'JRN JN OLO PSW AFTER KB INT 



FOR 16-3TT PROCESSOR 
ACKNOWLFiDG-: THE INTERRUPT 
FRO,- KEYBOAPD DEVICE ? 



FOR 32-3IT PROCESSOR 
CAPTURE C'JRRENT PSW 

STORE INTERRUPTING DEVICE ADDRESS 



CST11500 


CHT11S10 


CNT11520 


CKT11530 


CNTHSaO 


CHT11550 


CMT11560 


CKT11570 


C1T11580 


CMT11590 


CBT11600 


CHT11610 


CST11620 


CST11630 


CMT11640 


CST 11650 


CMT11660 


CMT11670 


CST11680 


CMT11690 


C!IT11700 


CHT11710 


CRT 11 720 


CJIT11730 


ruTA -t nun 


C*T11750 


CHT11760 


CMT11770 


CMT11780 


CHT11790 


CHT11800 


C!1T11R10 


C'!T11820 


Ci1T11330 


CI1T11840 


C>{T11fi50 


CST11B60 


C^T11870 


C.tTIISBO 


Cf1T11890 


C1T11Q00 


CKT11910 


CI1T11920 


CMT11930 


CnT11940 


CMri1950 


CNT11960 


C1T11970 


C.1I11980 


C!^T11990 


CMT12000 


CHT12010 


CKT12020 



COBHON HAGKETIC TAPE TEST PROGRAM 06-172K03A13 PAGE 2a 13:07:U5 08/15/79 

EIEC - ETPE R03P2 (H/COHDITIOKAL ASSEMBLr) 



iac2 


D230 


16D2 


1UC6 






iaC6 


0850 


16C4 


1l*CA 


2135 




1«CC 


4800 


0040 


1«D3 


U810 


0042 


laou 


UOOO 


16CA 


1UD8 


UOIO 


15CE 


tUDC 






1UDC 


0855 




ii»Di; 


233A 




litEO 


4820 


0A24 


mE« 


9512 




1i»E6 


DOOO 


3E48 


1UEA 


48 20 


16D0 


14EE 


48A0 


16C6 


14F2 


07E5 




IMF* 


4865 


1970 


1UF8 


4210 


1544 


IKFC 


0562 




IdFE 


2333 




1500 


2652 




1502 


2207 




150« 


4865 


196A 


1508 


4330 


1544 


150C 


4060 


1542 


1510 






1510 


4860 


16C4 


1511* 


2339 




1516 


9051 




1518 


90A4 




151A 


CUAO 


OOOF 


151E 


D4A5 


1966 


1522 


4230 


1554 


1526 


48 60 


15CE 


152A 


C560 


10CM 


152E 


2187 




15 30 


C560 


10D8 


1531* 


2384 




1536 


D100 


3F08 


153A 


2303 




153C 


D100 


3E88 


15i40 


4300 


1540 




0000 


1542 



1197 




STB 


R3,INTSTA 


1198 




IFZ 


A DC- 2 


1199 




IH 


R5,«0D32 


1200 




B!<ZS 


XI32A 


1201 




LH 


R0,X'40' 


1202 




LH 


R1,X*42' 


1203 




ESDC 




1204 


XI32A 


STH 


SO,OPSH 


1205 




STH 


H1,3L0C 


1206 




IFZ 


ADC-2 


1207 




LDAR 


R5,R5 


1208 




BZS 


XI16A 


1209 




ENDC 




121.0 




LH 


R2,PSW2 


1211 




EPSR 


H1,H2 


1212 




ST!! 


SOrlNTSAV 


1213 




LH 


R2,INTDEV 


1214 




LH 


RIO.INTPSW 


1215 


w 






1216 


XI16A 


XAR 


R5,R5 


1217 


XII 


LH 


36,DEVSADR(R5) 


1218 




HI 


XI ERR 


1219 




CLAR 


36, R2 


1220 




BES 


XI2 


1221 




AIS 


R5,2 


1222 




BS 


XII 


1223 


XI2 


LH 


R6,DEVI(IT(R5) 


1224 




BZ 


XI ERR 


1225 




STH 


86, XIEXIT 


1226 


4 






1227 




IFZ 


ADC-2 


1228 




LH 


R6,f10D32 


1229 




BZS 


XI3 


1230 




ENDC 




1231 




SRLS 


R5,1 


1232 




SRLS 


RIO, 4 


1233 




KHI 


S10,15 


1234 




CLB 


S10,IHTLVL(B5) 


1235 




BHE 


LVLSRR 


1236 


* 






1237 


XI3 


LH 


a6,0L0C 


1238 




ClHI 


R6,TI«ER+4 


1239 




BLS 


XI4 


1240 




CLHI 


R6,TI"fXT 


1241 




BHLS 


XI4 


1242 




L.I 


RO,RSA¥E 


1243 




B3 


XI5 


1244 


XI 4 


LS 


RO.IHTSAV 


1245 


XI 5 


B 


* 


1246 


XIEXIT 


EQU 


•-2 


1247 
124 8 


* . . 






* EXTERNAL ISTERRUPT E8R0P B 


1249 


* 







STORE INTERRUPTING DEVICE STATOS CHT1203; 

CMT1204J 
C.1T1205: 
C«T120£: 

16-3ir OLD PSW C«T120"': 

CHT1209: 
C!1T1209: 

STORE CLD PSH STATUS C.1T1210; 

STOPE OLCi PStf LOC CfIT121i: 

CUT 1212: 

HOD32 = ? CRT1213: 

3RANCK IF YES. CMT121-: 

CHT1215: 
C"IT1216: 

SELECT L'SKR REGISTER SET CHT1217: 

SAVE U5=:R REGISTERS CHT12n: 

C!1T1219C 
C«T12 2GC 
CBT1221: 
CI1T1222: 

GET iJtV ADRS FROM TABLE CHT1223: 

TABLE OVERFLOM. caT122i-: 

COIlFA^iE INTERRUPTING DEVICE ADDRESS CMT12:5: 

CHT1226C 
CMT1227:. 
CHT1223': 

GET INT?:rBOPT handler ADDRESS CBT1229; 

INTEBB'JPT HOT EXPECTED CBT1230C 

CHTI231: 
CMT12320 
CKT1233C 

32-BIT 1ACHINE ? CHT1234C 

BRANCH IF NO. CKT1235S 

CST1236C 
CNT1237C 
CHT1238t 
CHT1239: 

CHECK PROPER INTERRUPT LEVEL CHT12i»0C 

CMT1241C 
CI1T12tt2: 

GET PSW AT TIME OF INTERRUPT CHT1243: 

C>(T1244r 

tfAS INTERRUPT IN TIMER SO'JTINE 7 CBT12U5C 

CHT124e: 

B3AMCH TF NO. CHT1247: 

RESTORE FROM 'TIBER" ENTRY CBT124a: 

CBT12a;: 

RESTORE FROM XI16/XI32 ENTRY CKT1250C 

AND GO TO INTERRUPT HANDLER C»!T12^i: 

CMT1252r 

CBT125 3C- 

3 CBT1254': 

C«T12b5: 



154(J 


C8 60 


4634 


1518 


4060 


173E 


15UC 


41 FO 


0F9A 


1550 


4300 


OAEA 



1554 


C860 


4636 


1558 


4060 


173E 


155C 


D3AA 


171C 


1560 


D2ft0 


17A0 


1554 


41F0 


0F9A 


1568 


C850 


178A 


156C 


4050 


16FE 


1570 


41F0 


112A 


1574 


4300 


OAEA 



158 6 


C820 


4635 


159A 


4020 


173E 


158E 


230C 





1590 


C820 


4631 


1594 


4020 


173E 


1598 






1593 


4820 


16C4 


159C 


2135 




159E 


48E0 


0048 


15A2 


48F0 


004A 


15A6 


40 EO 


16CA 


15AA 


40F0 


16CE 


15AE 


4800 


0A24 



CO«XON HAGHETIC TAPE T^.ST PHOGBAH 06-172H03A13 PACE 25 13:07:45 08/16/73 

EXEC - ETPE R03P2 { W/CCMDTTICNAL ASSE.1BLT) 

1250 XIERB LHI fi6,C'F4' EBROS # F4 C1T1256C 

1251 STH E6,ERR!(0 C,'«T12570 

1252 BAL LINK,ERRALL 'ERROR XXF4', 'DEV DDC 5TA S5 ' C1T125S0 

1253 * 'PSW PPPP LOG LLLL' C!?T12590 

1254 B 0PTIS1 TO ENTER C0.1KAND »0D-: C'!T12600 

1255 * CfT12610 

1256 * DEVICE ISTEBSUPTED IN WRONG INTERRUPT LEV"L CMT12620 

1257 * ^ _ C!'.T12630 
1256 LVLkSH LHl R6,C=F6= ERROR « F6 C«T12640 

1259 STH B6,ERRN0 C«T12650 

1260 L3 R10,HEXTAB(R10) CONVERT TO ASCII C.'<T12660 

1261 STB H10,EBRLVL AND STORE ERROR LEVEL IS MESSAGE CMT1267Q 

1262 BAL LINK,EfiRALL 'ERROR XXF6', 'DEV DDC 3TA 3S ' CKT1268Q 

1263 * 'PSW PPPP LOC LLLL" CST12690 

1264 LHI R5,ISTLVLM C!^T12700 

1265 STH H5,ISITEBR SET FLAG TO OVERRIDE NCSSG OPTION C!1T12710 

1266 BAL LINK, PRIST 'INTERRUPTED i:i LEVEL N' C.1T12720 

1267 B 0PTIN1 ENTER COMMAND !10DE. C1T12730 

1268 ♦ CMT12740 

1269 * SPURIOUS INTERRUPT HANDLERS C,1T12750 

1270 * C«T12760 

1271 * C!!T12770 
1578 C820 4637 1272 FORFAULT LHI R2,C'F7' CflT12780 
157C 2307 1273 BS RP+4 C«T12790 
157E 1274 IFZ- ADC-2 CRT12800 

1275 * FLOATING-PT ARITH FAULT INT TRAP (16 BIT PROCESSOR) CflT12810 

1276 * C»!ri2820 
157E 48F0 0028 1277 FP LH Rla,X'28' OLD PSW {16-BIT PROCESSOR) C^T12830 
1582 48F0 002A 1278 LH R15,X'2A' OLD LOC CST12640 

1279 ENDC CMT12650 

1280 * C?1T12360 

1281 • RELOCATION/PROTECTION INT TRAP C'!T12«70 

1282 • ^"112880 

1283 RP LHI P2.C'F5' CMT12390 

1284 STH R2,ERRS0 SET ERROR It F5 Cf?T12900 

1285 BS C0!1"1 CMT12910 

1286 * C.1T12920 

1287 ♦ ARITHSETIC FAULT INT (32-BIT PROCESSOR) TRAP CMT12930 
1590 1288 IFZ ADC-2 C;iri2940 

1289 * FIXED-PT DIVIDE FAULT INT (16-aIT PROCESSOR) TRAP C»T12950 

1290 ENDC C1T12960 

1291 * C«T12370 

1292 AF LHI R2,C'F1' C.'T12380 

1293 STH R2,ERRN0 SET ERROR » F1 C"T12990 

1294 IFZ ADC-2 C.MT13000 

1295 LH R2,M0D32 0.1113010 

1296 BMZS C0J1M CXT13020 



LHI 


R2,C'F1' 


STH 


R2,ERRN0 


IFZ 


ADC-2 


LH 


R2,M0D32 


BMZS 


C0J1M 


LH 


R14,X'48' 


LH 


R15,X'4A' 


ENDC 




STH 


R14,0PSW 


STH 


R15,OL0C 


LH 


B0,PSW2 



1297 LH R14,X'48' OLD PSW (16-8IT FROCfSSOR) C.'<T13030 

1298 LH R15,X'4A' OLD LOC (15-BIT PROCESSOR) C^TISOUO 

1299 ENDC C:iT13050 

1300 C0I1B STH R14,0PSW CfTnC'-O 

1301 STH R15,OL0C C!1T13070 

1302 C0H«1 LH B0,PSW2 CMn303C 



CO!«!IOK MAGNETIC TAPE TEST PRCSRAH 06-172303*13 
EXEC - ETPE R03P2 < W/CONDITICS SL ASSEMBLT) 
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15B2 


9520 




15BU 


tlFO 


OFUC 


15B3 


aoFO 


16FE 


15BC 


ttlEO 


^onn 


15C0 


tt300 


OHEA 



15Ctt 


C8;o 


'i632 


15CB 


«C20 


173E 


15CC 






15CC 


i48 20 


16Ci| 


15D0 


2135 




15D2 


UPFO 


0030 


15D6 


a?FO 


0032 


15DA 


U300 


15A6 



15DE 


95AA 




15E0 


C8 20 


1*633 


15E4 


«020 


173E 


15E8 


H8F0 


0022 


15EC 


ueFO 


0026 


15F0 






15F0 


U820 


16C'» 


15Ftt 


2135 




15-6 


M810 


0038 


15FA 


aSFO 


D03A 


15FE 


C<»E0 


FFFO 


1602 


C4A0 


OOOF 


1605 


06FA 




1608 


HOEO 


16CA 


160C 


«0F0 


16CE 


1610 






1610 


C810 


7FFF 


16114 


27 11 




1616 


2021 




1618 


C800 


080F 


161C 


91011 




161E 


9520 





1520 


S320 


0A10 


1621 


2725 




1626 


233li 




1628 


U8 20 


16D6 


162C 


233B 




162E 


D320 


16DB 



1303 
130» 
1305 
1306 
1307 
1303 
1 309 
1310 
1311 
1312 
1313 
1310 
1315 
1316 
1317 
1316 
1313 
1320 
1321 
1322 
132 3 
1321 
1325 
1326 
1327 
1323 
1329 
1330 
1331 
1332 
1333 
133H 
1335 
1336 
1337 
1338 
1339 
1340 
1341 
1342 
1343 
1344 
134E 
1346 
1347 
1348 
1349 
1350 
1351 
1352 
1353 
1354 
13B'_ 



EPS8 


R2,00 


BAL 


LINK.ESF 


STH 


LIKSflSIIERR 


BAL 


RET,EP?FL1 


B 


OPTTSI 



NO 1ST, , REC, SET 15 

PRIST "ERSOP XXF.K" 

FORCE PRINT 

PRINT 'P.-V PFPP . LOC IILL' 

ENTER CCXASn f^ODE 



ILLEGAL IHSTRUCnoS INTERRUPT T^AP 



IT 



II32 



IHl 


R2,C*F2' 


STH 


R2,ES?S0 


IFZ 


ADC-2 


LH 


R2,MCD32 


B^ZS 


II32 


LH 


R14,X' 30* 


LH 


R15,X'32' 


ENDC 




B 


CO R.I 



SET ERRO? » F2 



OLD PStf 
OLn LOC 



MACHINE HALFUNCTIOS INTERRUPT IHAP 



SH 



HM32 



NH16 



EPSfi 


R10,S10 


LHI 


R2,C'F3' 


STH 


R2,ERR.10 


LH 


Bia,X'22' 


LH 


R15,I'26' 


IFZ 


ADC-2 


LH 


R2,!10j32 


BNZS 


MH32 


LH 


R14,X'38' 


LH 


R15,X' 3A' 


ENDC 




NHI 


S14,X*FFF0' 


NHI 


BIOrX'OOOF' 


OAR 


R1U,R10 


STH 


R14,0PS.» 


STH 


R15,CL0C 


IFZ 


ADC-2 


LHI 


R1,X*7FFF' 


SIS 


R1,1 


EPS 


!1H16 


ENDC 




LHI 


R0,X"080F' 


SLHLS 


R0,4 


EPSR 


R2,?0 



CAPTURE "".Hr P3W 

SET EBRO^ » F3 

OLD PSW ( 32-BIT PROCESSOR) 

OLD LOC 



OLD PSW (16 BIT PROCESSO?) 
OLD LOC 



HO = X'30F0' 
HALT PPOC^.SSOR 



■rfHEN EXE/RiJH IS DEPRESSED, ERROR KSG IS PRINTED. 



HHCOni 



Hf^COMIA 



LB 

SIS 

BZ3 

LH 
BZS 

L3 



R2,I3 
R2,5 
MMC011A 
R2,PASFLG 

nncon2 

R2,C:;SADR+1 



GET ISP'JT DEVICE POISTER 

IS IT >!ICRO I/O BUS 

YES, RRRSCH 

IS CONSOLE ON PASLA 

SO.BRANCF 

GET CONSOLE TRANMIT'R ADR'i 



CBT13090 
CI1T13100 
CBT13110 
CHT13120 
C>!T13130 
CMT13-1U0 
CBT13150 
CKT13160 
CHT13170 
CMT 1318 
C1T1 3190 
CaT13200 
C HT 1 3 2 1 
CHT13220 
CaT13230 
CHT13240 
CHT13250 
CNT13260 
CMT 13270 
C,1T13280 
C.>1T13290 
C>tT13300 
CUT 13 310 
CHT13320 
CBT13330 
CI1T13340 
CHT13350 
C!1T13360 
C1T13370 
CUT 13 38 
CMT13390 
CBT13400 
CHT13410 
CHT13420 
CMT13430 
CHT13440 
CHT13450 
CHT13460 
CRT13470 
CHT13480 
CHT13490 
C».T13500 
CKT13510 
CHT13520 
CMT13724 
C?!T13726 
CKT13728 
CKT13530 
C?IT13540 
rMT 1 3550 
CMT13560 
CJ1T13570 
CMT13&80 



COllRON HAGKETIC T*PE TtST PSOGBAS 06-172R03A13 
EXEC - ETPE B03P2 ( W/CONDITIONAL ASSE?1BLY) 
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1632 


DE20 


16E8 


1636 


D320 


16DA 


163A 


DE20 


16DC 


163E 


DB20 


1503 


1642 


D320 


0A11 


1646 


2725 




1648 


2334 




16!JA 


48 20 


1SDS 


154E 


233E 




1650 


D310 


0A11 


1654 


D320 


0A10 


1658 


0521 




165A 


2338 




165C 


9111 




165E 


D321 


0A11 


1662 


DE21 


16E8 


1666 


DE21 


16DD 


166A 


4300 


15AE 


ie6E 


48 FO 


16C4 


1672 


4230 


1694 


1676 


0777 




1678 


D271 


000 B 


167C 


4061 


0006 


1680 


C510 


17CE 


1684 


2334 




1636 


4060 


3630 


168A 


2303 




168C 


4060 


362C 


1690 


4300 


0AE6 


1694 


0876 




1696 


4071 


0006 


169A 


1068 




169C 


1068 




16gE 


C460 


OOOF 


16A2 


D261 


OOOB 


16A6 


C510 


17CE 


16AA 


2336 




16AC 


40 70 


3632 


16B0 


D260 


3531 


16B4 


2305 




1636 


4070 


352E 


16BA 


D260 


362D 


16BE 


4300 


0AE6 



16C2 


0000 


16C4 


0000 


16C6 


0000 



1356 




OC 


32,C0N2HD 


1357 




LB 


R2,C0!(ADR 


1358 




OC 


R2,C0NBD 


1359 




RD 


R2,SISK 


1360 


* 






1361 


MMC0M2 


LB 


R2,I0+1 


1362 




SIS 


R2,5 


1363 




BZS 


1«C0a2A 


1364 




LH 


32,PASFLG2 


1365 




BZS 


MMC3?I3 


1366 


M.1C0M2A 


LB 


R1,I0+1 


1367 




LB 


32,10 


1368 




CLAR 


R2,S1 


1369 




BES 


"1NC0H3 


1370 




SLHL3 


R1,1 


1371 




LB 


a2,I0+1(g1) 


1372 




CC 


32,COS2HD(fi1) 


1373 




OC 


a2,C0NHBT(R1) 


1374 


* 






1375 


«HC0B3 


B 


C0SH1 


1376 


* 






1377 
1378 


* — •-••••• 






MACHHUM 


LH 


H15,!10D32 


1379 




B»Z 


BUFCHA32 


1380 


BUFCHA16 


XHR 


R7,R7 


1381 




STB 


S7,11{B1) 


1382 




STH 


a6,6{H1) 


138 3 




CLHI 


R1,SWRITE 


1384 




BES 


WSTORE 


1385 


BSTOBE 


STH 


a6,aADDRS 


1386 




BS 


aOPTIS2 


1387 


WSTORE 


STH 


R6,.<ADDRS 


1338 


R0PTIN2 


B 


OPTIH 


1389 


BUFCHA32 


LHR 


37, B6 


1390 




STH 


a7,5(R1) 


1391 




DC 


X*1D68* 


1392 




DC 


X* 1068* 


1393 




HHI 


R6,X'F' 


1334 




STB 


R5,11(R1) 


1395 




CLHI 


R1, '.WRITE 


1396 




BES 


WST0SE1 


1397 


RSTOaEI 


STH 


a7,3ADDBS+2 


1398 




STB 


a6,aADDSS+1 


1399 




BS 


R0PTIN1 


1400 


WST0HE1 


STH 


R7,WADDRS+2 


1401 




STB 


R6,HADDRS+1 


1402 


R0PTIN1 


B 


OPTIS 


1403 


* ♦*♦*•*»*«******»*««***«*♦*. 


140 4 


* ETPE 1 


CONSTANTS £ TABLES 


1405 


* 






1406 


FIRST 


OCX 





1407 


I10D32 


OCX 





1408 


INTPSH 


OCX 






ISSUE 2N:)/aESET COMPIAND 
GET RECEIVER AD3RESS 
OUTPUT ?EAD CKD 
DU««!T R£».D rO SET BPUSY 

GET Lis: DEVICE POINTER 

IS IT CM .1IC50 I/O BUS 

YES, BHASCH 

IS LIST DEVICE OH PASLA 

NO, BHAMCH 

YES, GET LIST DEVICE POIMTEH 

CONSOLE = LIST DEVICE 
YES, BRANCH 

GET LIST DEVICE TRANSMIT ADDRESS 
ISS'JE 2MD/RESET CKD 
ISSUE LIST WRITE CMD 



STORE ADDRESS OF WHUFF JR RBUFF •* 

IN OPTIOS/COIMAND TABLE ** 

, ** 

TEST IF WSTART OR RSTART ** 

. •* 

. *» 

. ** 



STORES NEW ADRS FOR 32 HIT PTACHIS** 
STORE 1ST 16 BITS OF NEW ADDRESS »* 
NOTE: Tr^ESE ARE SRLS INSTRUCTIONS** 
THEY PEPF0R.1 FULLWORD SHIFTS ** 

• »• 
STORE is: 4 BITS OF NEW ADDRESS ** 

• *« 
. *• 
STORE R3;FF ADDRESS IN 8ADDRS ** 



STO?E WBUFF ADDRESS IN WADDRS ♦* 



FLAG F0» 32-BIT J!/C( NON-ZERO) 
(FOR 32- BIT 1/C ONLY) 



CI?T13590 

CHT13600 

CiTISeiO 

CHT13620 

C.1T13630 

CRT13540 

CMT13650 

CflT13660 

Cf1T13670 

CHT13680 

CMT13690 

CMT13700 

CMT13710 

C?1T13720 

CMT13730 

CHT13740 

CKT13750 

CI1T13760 

CBT13770 

CMT13800 

C!1T13810 

CflT13820 

CHT13830 

CMT1 3640 

C>1T13850 

CMT13860 

CHT13870 

CnT138B0 

CHT13890 

Cf1T13900 

CHT13910 

CMT13920 

CMT13930 

C«T13940 

CST13950 

CMT13960 

CHT13970 

CHT 13980 

CMT13990 

CWT14000 

CfIT14010 

CHT14020 

C»!T14030 

C»!T14040 

CST14050 

CST14060 

C?!T14070 

CUT 1408 

C.1T 14090 

CHT14100 

C1T14110 

C.1T14 120 

CHT14130 



COHHOM HAGHETIC TAPE TEST PROGRAR 06-172303*13 
EXEC - ETPE B03P2 { H/CONDITION AL ASSENBLT) 



16C8 



16C8 


0000 




16CA 


00 00 




16CC 


OQOO 




16CE 


0000 




16D0 


0000 






0000 


16D0 


16D2 


00 






0000 


16D2 


16D3 


00 




16D4 


80 




16D5 


10 




16D6 






16D6 


0000 




16D8 


ocoo 





16DA 



0000 



16DC 


0000 




OOCO 16DD 


16DE 


A1A3 


16E0 


AIIC8 


16E2 


0080 


16Ei» 


A1A3 


16E6 


8202 


16E8 


0000 




0000 16E9 


16EA 


EE71 


16EC 


ocea 


16EE 


0000 


16F0 


F069 


16F2 


0000 


16FM 


00 


16F5 


33 


16F6 


00 


16F7 


00 


16F8 


23 


16F9 


00 


16FA 




16FA 


11198 


16FC 


OCOO 


16FE 


0000 


1700 


0000 


1702 


0000 


170U 


0000 


1706 


OOCO 



11109 
11110 

mil 


*«._ 


AlIGH 


8 


0PSW32 


DCX 





1412 


OPSii 


OCX 





1U13 




DCX 





14111 


OLOC 


DCX 





mi5 


♦ -._ — -,._ — 












1416 


INTDEY 


DCX 





1417 


ERRDET 


EQU 


INTDEV 


1418 


INTSTA 


DR 





1419 


ERRSTA 


EQU 


IHTSTA 


1420 


SIS*; 


DB 





1421 


SOR'< 


DB 


X'80' 


1422 


ISCS 


DB 


X'40' 


142 3 




DB 


* 


1424 


PASFIG 


DCX 





1425 
1426 


PASFIG2 


DCX 











1427 


* ETPE 


10 COJ! 


HANDS 


1428 


* 






1429 


COSADi? 


DCX 





1430 


* 






1431 


CQiiS: 


DCX 





1432 


CO!(i(BT 


EQU 


CONRD+1 


1433 


CRrio 


DCX 


A1A3 


1434 


CLIFPD 


DCX 


A4D8 


1435 


LPKPT 


DCX 


0030 


1436 


CARSD 


DCX 


A1A3 


1437 


HRE^EC 


DCX 


8202 


1438 


* 






1439 


C0N2!tD 


DCX 





1440 


CONERRD 


EQU 


C0N2SD+1 


1441 


CRT7JD 


DCX 


EE71 


1442 


CLIF2SD 


DCX 


0064 


1443 




DCX 





1444 


CAft2!ID 


DCX 


F069 


1445 




DCX 





1446 


* 






1447 


CORP32S 


DB 





1448 


CBTP32S 


DB 


X'33' 


1449 




DB 





1450 




DB 





1451 


CARPg2S 


DB 


X'23' 


1452 




DB 





1463 




DB 


* 


1454 
1455 


* _-—-—- 






KB11T 


DC 


Z(HETOPS:V) 


1456 


B8KYECT 


DC 


Z(0) 


1457 


ISITERR 


DCX 





1458 


HOE?R 


DCX 





1459 


SELTST 


DCX 





1460 


MAsra 


DCX 





1461 


WAsrii 


DCX 
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OLD PSH STORAGE AREA 



IKTERRUPTING DEV ADR 
ERROR DEVICE * 
INTERRUPTING DEV STATUS 
ERRONEOUS STATUS 
BIT BUCKET 



SET WHEN CONSOLE ON PASLA/PALM* 
SET WHEN LIST DEVICE ON PA3LA 



CONSOLE DEVICE ADDRcSS 
CONSOLE READ/rfRITE COMMANDS 

FOB CRT 

* CURRENT LOOP INTERFACE 

* LINE PRINTER 

* CAROUSEL 300 

* MICROBUS 

2ND COMMAND; ENABLE READ C0?1KAND 

FOR CRT 

* CURRENT LOOP INTERFACE 
' DUMMY HH FOR LP 

* CAROUSEL 300 

* DUMMY HH FOR KXCROBUS 

CONSOLE REQUEST TO SEND CHD 
FOR CRT 

* DUMMY BYTE FOR CLI 

* DUMMY BYTE FOB LP 

* CAROUSEL 300 

* DUMMY BYTE FOR MICROBUS 



KEYBOARD INT RETURN ACH 
BREAK KEY VECTOR 



HIGHEST SELECTED TEST # 

1 IF KEYBOARD DEVICE WAS OFF 

SON-ZERO IF TOTAL, TOTtRR TO PRIST 



CnT14140 
CMT14150 
CMT14160 
CMT14170 
CMT14180 
CMT14190 
CMT14200 
CMT11J210 
CMT1U220 
CMT14230 
CHT14240 
CMT1tt250 
C.1T1U260 
CXT14270 
CMT 14280 
CMT 14 290 
CMT 14 300 
CMT1U310 
CMT 14 320 
CMT14330 
CMT14340 
CMT143E0 
CMT14360 
CnT14370 
CMT14380 
CMT14390 
CMT14400 
CMT14410 
CMT14420 
C.'1T14430 
CMT14440 
CMT14450 
CMT14460 
CMT14470 
CMT14480 
CMT14490 
CMT14500 
CMT14510 
CMT14520 
CMT 14530 
CMT14540 
CMT14550 
CMT 14 56 
CMT 14 570 
CMT14580 
CMT14590 
CMT14600 
CMT14610 
CMT1U620 
CMT14630 
CMT14640 
CMTIufiSO 
CMT14660 



COIHOIt FASKETIC TAPE TKST PROGRAR 06-172P03A13 
EXEC - ETPE R03P2 ( W/CONDITIONAL ASSEMBLY) 



1708 OOCO 

170 A OOCO 

170C OOCO 

170E 0000 

1710 OOCO 

1712 00C1 

171«( OOCA 

1716 006U 

1718 03E8 

171A 2710 

171C 3031 3233 3435 3637 

1724 3839 it1«2 USUK 45i»6 



11462 


TOTAL 


DCX 





1463 


TOTEBB 


OCX 





1461* 


BTESTHO 


DCX 





1465 


COUNT 


DCX 





1466 


HEXTST 


DCX 






1467 
1468 
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» Or TI'ES THE SELFCTEC TESTS RUM 
TOT^L ERRORS DETECTED WHILE DU 
CURRENT TEST $ IN BISARlf 

SEXT TEST * 



CECTAB 



DC 



1,10,100,1000,1000: 



172C 


5445 


5354 


2020 


2A2A 


1734 


ODOO 
0000 


1732 






1736 


4552 


524F 


5220 


2A2A 


173E 


2A2A 








1740 


OCOO 
0000 
0000 


173C 
173E 






17U2 


544r 


544 1 


4C20 


20 20 


174A 


544F 


5445 


5252 




17 50 


OCCO 








1752 


4E4F 


2045 


5252 


4F52 


175A 


ODOO 








175C 


4U45 


5620 


2A2A 


2A20 


1764 


5354 


4120 


2A2A 




176A 


ODOO 
OOCO 
0000 
0000 


1760 
1764 
1768 






176C 


4445 


5620 


2ft2A 


2A20 


1774 


ODOO 
0000 


1770 






1776 


5053 


5720 


2A2A 


2A2A 


177E 


20 20 


4C4F 


4320 


2A2A 


1786 


2A2A 








1788 


OCOO 
OOCO 
0000 
OOCO 


177A 
1780 
1784 






178A 


494E 


5445 


5252 


5550 


1792 


5445 


4420 


494E 


2Q4C 


179A 


4556 


454C 


2020 


2A20 


17A2 


OCOO 
0000 


17A0 






17A4 


454E 


4420 


4F46 


2054 


17AC 


4553 


5420 






17B0 


ODOO 









1469 HEXTAB DB C 0123456789ABCDEF" 

1470 * 

1471 * ETPE MESSAGES 

1472 * 

1473 TSTNSG DC C'TEST **',X'OD00' 

1474 HTESTNO E2D *-4 

1475 ERBKSG DC C'ERROR ***♦', X ' 0003 • 



1476 ETESTNO E20 *-6 STORED Bi' ETPE 

1477 E8FH0 EQU *-4 STORE EPRNO AS CHAH CONSTANT 
14/S TOT.ISG CC C'TOTAL TOTEHR ' , X ' ODOO ' 



1479 NOERMSG DC C'NO ERROR* ,X' ODOO' 

1480 DEVMSG DC C'DEV **♦ STA *»',X'ODO0' 



1481 ASCIDEV Ea'J ♦-12 

1482 STASSG EQO *-8 

1483 ASCISTA EQU ♦-4 

1484 DEVHSG2 CC C'DEV ***',X'ODao' 

1485 ASCIDEV2 EQU *-6 

1486 PSHMSG DC C'PSW *♦** LOC ***•', X ' DOOG ' 



1487 ASCIPSW EQO *-^6 

1488 LOCMSG E20 *-10 

1489 A3CIL0C E3U *-6 

1490 INTLVLH DC C INTERRUPTED I V LE/FL ♦',X'0D00' 



1491 ERRLVL EQU •-4 

1492 EOTMSG DC C'END OF TEST ' , X ' 3D30' 



CNT14670 
C»IT14680 
C.1T14690 
':!'.T 14 700 
C1T1U710 
CflTia720 
C*!T14730 



C1T14740 

C1T14750 
CMT1U760 
CKT14770 
CHT14780 

CBT1U790 

C«T14800 



CHT14810 
C!1T14820 
C^T14330 



C«T14840 
C!1T14>?50 



CMT14860 
C1T 14870 
Cf^TlliBSC 
CMT1U390 

CMT 14 900 
C!1T1U910 



C:iT14O20 
CI1T1493C 
CMT14940 
C«T14950 



CMri4960 
CMT14,'70 
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EXEC - ETPE B03P2 ( K/CONDITIOHAL ASSEHBLD 

17B2 3F0D 1«93 Q?!SG DC X*3F0D' CIIT1it980 

17B(| 2A0D 1(|9H ABS3 DC X'2A0D* CHT1U990 
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EXEC - ETPE R03P2 (H/COHDITION AL SSSENBLT) 

1496 ♦ C!*T15010 

1U97 * OPTIOH/CONHASD TABLE CHT15020 

1«98 * Cf.n^OSO 

0000 17B6 1<J99 OPT EQU * C^TISOHO 

17B6 51*15 5354 2020 1500 TEST DC C'TEST ' ,X ' FCOO ' ,X ' 0000 ' , X * D300 ' f^^TIS^OBO 

17BC FCOO 

17BE 0000 

17C0 0000 

I ' \'£ ^£TJ3 v»-Tf jz->-« ijui nsE.nL* i/v- v-rtbinni#J/nftk„nnun,j Ci^ I 15 060 

17C8 0000 

17CA 166E 

17CC 0000 

17CE 5753 51*41 5254 1502 !<WRITE DC C VfSTART' ,0,HSCHNUH , C^T15070 

17D4 OOCO 

17D6 166E 

17D8 0000 

17DA 4C4F 4F50 2020 1503 LOOP DC C'LOOP ', X "0000 ', X' 0000" , X" 0000' C!1T15080 

17E0 00 00 

17E2 0000 

17E4 OOCO 

17E6 43UF 4E54 494E 1504 CONTIM DC C CONTIN ' ,X'0000' ,Z( ZERONE) , X • 0000 ' CHT15090 

17EC OOCO 

17EE 34CA 

17F0 0000 

17F2 4mF 4D53 4720 150 5 SOJTSG DC C"<0>1S3 ', X ' 0000 ', Z ( ZEKONE ), X • 0000 ' CKT15100 

17F8 0000 

17FA 340A 

17FC 0000 

17FE 4445 5641 4452 1506 DEVADR DC C" DEVAD8 ' ,X'008 5' ,DEVCHN, CflTI'^IIO 

1304 00S5 

1806 3440 

1808 0000 

180A 4456 3241 4452 1507 CV2ADR DC C DV2ADR ' , , DBVCHN ,0 C!1T15120 

1810 0000 

1312 3440 

1814 0000 

1816 5345 4C43 4820 1508 SELADS DC C'SisLCH ' , X ' OOFO ' , D , Cf!ri5130 

131C OOFO 

181E 0000 

1820 OOCO 

1822 494E 544C 4556 1509 ISTLEY DC C ' INTLEV ' ,X ' 0000 ', Z ( LEVEL) , X * 000 V ("1111 = 140 

1828 0000 

182A 3450 

182C 0000 

182E 4445 5649 4345 1510 DEVICE DC C DEVICE ' ,0 ,Z (Z ESONE) ,0 CRT15150 

1834 0000 

1336 340A 

1838 0000 

183A 4D4F 4445 2020 1511 .10DE DC C'lODE ',2, MODES, CITT-ISO 

1840 0002 ,.- 

1842 3420 

1844 OOOO 

1846 5452 4143 4B20 1512 TRACK DC C'TRACK ', X' 0009' , TRACKS, CMT1M70 
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EXEC - ETPE R03P2 ( U/COKDITION AL ASSEHBLT) 

18UC 0009 

18KE 3ai2 

1850 0000 

1852 5215 «346 «9MC 1513 KECFIL DC C* RECFIL" ,X ' 100' , X3FF,0 CST15180 

1858 0100 

185A 3U38 

185C 0000 

185E 1*259 5UU5 5320 ISIK NOBrTE DC C'BYTES ' , X 'FF' ,RIN2,0 C«!T15190 

186« OOFF 

1866 3130 

1858 COCO 

186A K6U9 ttCUS 5320 1515 FILES DC C'FILES •,1,T3FF,0 CHT1520a 

1870 0001 

1872 31(38 

187« OCOO 

1876 52U5 501*5 '415« 1516 REPEAT DC C* REPEAT ' ,1' 000 3" , X256,0 C.'rT15210 

187C 0003 

187E 3428 

1880 0000 

1882 14952 14720 2020 1517 IRGDAT DC C'IRG " ,X ' 0010' , X256,0 C.1T15220 

1888 0010 

ISBA 31428 

188C 0000 

188E I4I455 2020 2020 1518 DUIST DC C'DfJ * ,0 ,Z (ZEBONE) ,0 'c«?T15230 

18914 0000 

1396 3aOA 

1898 0000 

189A 52115 1411414 2020 1519 CPRD DC C'READ ' , 1,Z( Z ERONE) , C""T152l40 

18A0 0001 

18A2 3«0A 

laAtt 0000 

18A6 5752 1495« <4520 1520 OPWBT DC C'WRITE " , 1 ,Z (ZEROHE ) ,0 CHT15250 

18AC 0001 

18AE 3a0A 

18B0 0000 

18B2 42i|B 5350 111143 1521 OPBSP DC C BKSPAC , 1, Z( ZEROSS) ,0 CaT15260 

18B8 0001 

18BA 3U0A 

18BC 0000 

18BE S3tlB 14950 2020 1522 OPSSIP DC C'SKIP • , 1, Z(ZERONE) ,0 ^115270 

18CI4 0001 

18C6 3140A 

18C8 0000 

18CA 57145 I4F46 2020 1523 OPUSOF DC C'HEOF • ,0,2 (ZEROKE) ,0 CHT15280 

18D0 0000 

18D2 3I40A 

18DU 0000 

18D6 l43ltF UD50 U152 15214 CHPPE DC C COMPAR ' ,1 .Z (ZEBONE) , CST15290 

18DC 0001 

18DE 314QA 

18E0 0000 

18E2 a352 '4320 2020 1525 SCRC DC C'CRC • ,0,Z (ZFSONE) ,0 C«T15300 

18E8 OOCO 



COfMOS MAGNETIC TAP?! TEST PBOGRAN 06-172803A13 
EXEC - ETPS R03P2 ( W/CONDITIOUAL ASSE!1BLT) 



PAGE 33 13:07:45 38/15/7? 



18EA 


3U0A 






18EC 


0000 






18EE 


52ltU 


1352 


1320 


lepi* 


0000 






18F6 


3U0A 






13F8 


OOGO 






18FA 


1H1E5 


1D50 


2020 


1900 


0000 






1902 


3«0« 






190« 


0000 






1906 


i»«11 


5111 


2020 


190C 


0001 






190E 


3<40A 






1910 


0000 






1912 


5313 


1F50 


1520 


1918 


0000 






191A 


3i*«8 






191C 


0000 






191E 


511(9 


1D56 


111C 


192li 


0110 






1925 


0000 






1928 


0000 








0000 


192A 






0000 


192A 




192A 


1F50 


5119 


iFlfc 


1930 


0000 






1932 


0000 






193l» 


0000 






1936 


5255 


1E20 


2020 


193C 


0000 






193E 


0000 






19U0 


0000 






19i»2 


131F 


1E20 


2020 


igas 


0000 






19UA 


310A 






194C 


0000 






19«E 


FFFF 






1950 


0007 






1952 


FCOO 






19514 


OCCO 






1956 


1R71 






1958 


1CCC 






195A 


1DA2 






195C 


1EB6 






195E 


233E 






1960 


211C 






1962 


25eA 






196« 


27AA 






1966 


0000 






1968 


0000 






196A 


0000 






196C 


0000 






196E 


0000 







1526 RDCSC DC C'RDCgC • ,0, Z( ZESONE) , 



1527 SDUn? DC C"DU'!P ' ,0,K (Z ESOHE) ,0 



1528 DATS DC C'DATA ' , 1 , Z( ZEROHE) , 



1529 SCOPE DC C'SCOPE '.O.SCOPrO 



1530 TIHVAL DC C 'TIMTAL' ,X ■ 1 10 ' ,0,0 



1531 OPTKND? EQU * 

1532 CPTEND EQU * 

1533 OPTION DC C ' OPTION ' ,0, ,0 



1531 RUN DC C'BJS ',0,0,0 



1535 CON DC C'COS ' ,0 ,Z CZ EOON?: ) ,0 



1536 DC 

1537 MAXTST DC 

1538 DEFTESTS DC 

1539 TESTS DC 



1510 



-1 

7 
X'FCOO',0 

rESrO,TtST1,TEST2,TfCST3 



DC TEST1,TEST5,TEST6,rEST7 



1511 INTLVL DC 0,0 

1512 DEVINT DC 0,0,0 



CMT15310 



C»fT1!320 



:MT15530 



C.1T15310 



CHT15350 



C?IT15370 
CMTISjaQ 
CST1E390 



C»!T15100 



C.1T1SU10 
CrTI rii20 
C?!T15u30 

C"",T15"10 



CIISUEO 

C.^nSl60 
C.>:T1':170 
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EXEC - ETPE R03P2 (W/CONDITIOHAl ASSEHBLI) 

1543 DEVSADR DC X ' FO ' ,X '85* ,0,-1 CIIT15U80 

15MW TITLE DC C'CDIflON BAGNETIC TAPE TFST PROGRAfI 06-172R03* ,X" DOO' CBT15U90 



1970 


OOFO 








1972 


0085 








197<» 


0000 








1976 


FFFF 








1978 


«3HF 


ttDI»D 


HFUV. 


204D 


1980 


i»1«7 


i»E45 


5tt«9 


U320 


1988 


5<4U1 


sots 


20Sit 


l»553 


1990 


5U20 


5052 


1FU7 


5241 


1998 


«C20 


3036 


2D31 


3732 


19A0 


5230 


3320 






19AI* 


ODOO 









CO"!.''ON ffR'JSETrC TftPE TrST PS0G8AH 06-172803A13 PUGi: 35 13:07:15 08/16/79 
S'JPROUTIKE INIT 

lc!*T ! C.1T15S10 

'^^■' C?IT15520 

15H8 * SUBHOUTIKE INIT . ^-1115530 

l^ug * THIS ROUTINE INITIALIZES THE TEST. IT IS CULLED Bf » CNT155U0 

■•550 * ETPE IT CHECKS F33 FALSE SITKC FPO" DEVICES REQUEST'^D. * C«T15.^50 

1551 * AND DO THE NORMAL HOUSE CLEANING, • CflTT^SeO 

■■552 * IF THE TEST IS EXECUTED THE FIHST 7'I*I=: AFTER LOADING, * CHT15S70 

]553 * IT ALSO FORCES THE EXECUTION OF TL'ST AND SET UP THE * C>1T15580 

'-'5^ * lOnS TItER CONSTANT * CrtT15^90 

* * CPT156nft 

1556 * CALLING SEQUENCE: ♦ 

1557 * BAL 815, INIT 

1558 * *****•*********»******»♦»»»*»•»»*♦♦*♦♦•••.«»*«»♦».*»«♦***»«*«»», 



1<)AS 


UBOO 


1924 


19AA 


2'»10 




19AC 


2'»ao 




19AE 


2«21 




19B0 


2U39 




19B2 


OA«0 




19BU 


Clio 


19B2 


1938 


uo^o 


0A1E 


19BC 


URFO 


16C4 


19C0 


1*330 


19E4 


1yCi* 


0360 


17CD 


19C8 


0866 




19CA 


lt230 


1A10 


19CE 


4860 


3632 


19D2 


0866 




19D<> 


U230 


19FC 


19D3 


C860 


3A3A 


19DC 


U060 


3632 


19E0 


i»300 


1A10 


19EK 


a860 


3630 


19E3 


UH90 


362C 


19 EC 


0866 




19EE 


2137 




19F0 


C860 


3A3A 


19Fi» 


1060 


3630 


19F8 


U300 


1A2E 


19FC 


C560 


3A3A 


1A00 


2335 




H02 


U560 


3638 


1A06 


U280 


1AB2 


1A0A 


C3IF 




1A0C 


4 3 30 


1A2E 


1A10 


D390 


17D9 


1A1« 


0899 




1A16 


4230 


1A6E 


1A1A 


4890 


362E 


1A1E 


0899 




1A20 


4230 


1A5A 


1A2« 


C890 


363A 



1559 



1561 LIS R1,0 

1562 LIS R4,0 

1563 LIS R2,1 

1564 LIS B3,9 



1558 LH R15,!10D32 

1569 BZ TESTAB 



1574 LHE R6,36 

1575 BSZ TELA3T 

1576 LHI R6,?3UFF 

1577 STH R6,=(ADDRS<-2 

1578 B TESTAA1 



1530 LH 39,.(ADDRS 

1581 LHR R6,36 



1582 BNZS TELAST 

1583 LHI S6,RSUFF 

1584 STH S6,RADDSS 

1585 B TELASTO 

1586 TELAST CLHI H6,R3UFF 
1597 BES CHE<I2 
1588 CLH 86, LAST 
1539 BTC 3,«E5SAG 



1591 BZ TELASTO 

1592 TESTAA1 LB R9,»MRITE+11 

1593 LHR R9,R9 

1594 BHZ TESIAA 

1595 LH R9,-iADDRS+2 

1596 LHR R9,P9 

1597 BNZ TELA3T1 

1598 LHI P9,^BUFF 



CnT15610 
C1T1562a 
CMT15630 
CMT15640 



1560 INIT LH_ R0,?I!1VAL + 6 GET TI?!VAL OPTION FOR 1>!S DELAY C!1T15650 

CHT15660 
Cf!I15670 
C!<T15680 

1565 INIT.1 AHR H4,R0 LOOP TO GET VALUE FOR 10MS CMT15700 

1566 BXLE R1,I!IIT.1 DELAT IN R4 

1567 STH R4,TIME STORE Ij-^S DELAY TIHE 



CMT1S710 
CHT15720 
CMT15730 
rHTi57iin 



1570 TESTAA2 LB R6,?1READ + 11 CMT15750 

1571 LHR H6,a6 Cf1T15760 

1572 BNZ TESTAA1 CKT15770 

1573 TESTAAO LH R6,RADDHS+2 CKri5780 

CMT15790 
CITI^SOO 
CSTISSIO 
CirT15820 

c\'.^^ 5330 

1579 TESTAB LH R6,PADDHS Cf;T15340 



C.iI1E350 
CMT15860 
CflT15H70 
C.^I1E830 
C.1T15890 
C«T15900 
CMT15910 
C!1T15920 
C.''T15930 

1590 CHEKI2 LHR R15,R15 cllHHl 



C?!T15g60 
CKT15970 

cnri598o 

C1T15990 
C;'T16000 
CMTIftOIC 
CKT 16020 
Cf!T16030 



COHHON HAGHETIC TAPE TEST PR0GR*I1 06-172803*13 
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SUBROaTIHE HIT 



1A28 


i»090 


362E 


1A2C 


230A 




1A2E 


C590 


363A 


1A32 


2337 




nan 


0899 




H36 


2137 




1S38 


C890 


363A 


1A3C 


1(090 


362C 


lAdO 


1*300 


1AC8 


ni*i* 


0569 




1AU6 


238K 




1AH8 


0879 




lAUA 


0B76 




UMC 


2303 




1AUE 


0876 




1A50 


0B79 




1A52 


C570 


0tt02 


use 


U280 


1AA8 


1A5A 


C590 


363A 


1A5E 


223F 




H60 


a590 


3638 


1A6II 


4280 


1ABC 


1Ae8 


08FF 




1A6A 


l»330 


1AC8 


1A6E 


D360 


17CD 


1A72 


«870 


17C8 


1A76 


D380 


17D9 


1A7A 


1890 


17D« 


1A7E 


EE60 


0010 


1A82 


0667 




1A8U 


ED80 


0010 


1A88 


0689 




1A8A 


0568 




1A8C 


2187 




1A8E 


C870 


01102 


1A92 


0A87 




1A9a 


0568 




1A96 


2189 




1A98 


2306 




1A9A 


C870 


0U02 


1A9E 


0A67 




1AA0 


0586 




1AA2 


2183 




1AAU 


4300 


1AC8 


1AA8 


C8 50 


35EE 


1AAC 


ttlFO 


112A 


1AB0 


230A 




1AB2 


C8 50 


35A4 


1AB6 


ttlFO 


112A 


1ABA 


2305 




1ABC 


C8 50 


35C8 


1AC0 


mFO 


112A 


1ACM 


H300 


0AE6 



1599 




STH 


B9,WADDRS-t-2 




1600 




BS 


BIHI 




1601 


TELASTO 


ClHI 


B9,ilBUFF 




1602 




BES 


RINI 




1603 




LHR 


R9,R9 




16011 




BNZS 


TESTAB1 




1605 




LHI 


R9,HBDFF 




1606 




STH 


B9,HADDRS 




1607 


BIHI 


B 


INI 




1608 


TESTAB1 


CIHR 


R6,R9 




1609 




BNLS 


C0NT1 




1610 




IHR 


R7,R9 




1611 




SfiP 


R7,R6 




1512 




BS 


C0HP1 




1613 


C0NT1 


LHR 


B7,R6 




1611* 




SHR 


37, R9 




1615 


COflPI 


CLHI 


S7,X'lt02' 




1616 




BTC 


8,!1ESAGE 




1617 


TELAST1 


CLHI 


a9,tf80FF 




1618 




BES 


8IHI 




1619 




CLH 


R9,LAST 




1620 




BTC 


8, MESSAGE 




1621 


CHEKI1 


LHR 


S15,B15 




1622 




BZ 


INI 




1623 


TESTAA 


LB 


R6,nREAD+11 




1521 




LH 


R7,JIREADt6 




1625 




LB 


B8,nHRITE+11 




1626 




LH 


R9,MHRITR+6 




1627 




SLL 


R6,16 




1628 




DC 


X'0667' 




1629 




SLL 


B8,16 




1630 




DC 


X'0689" 




1631 




DC 


X'0668' 




1632 




BLS 


CONEIT 




1633 


COKSIX 


LHI 


R7,X'i(02' 




163i« 




DC 


X'0A87' 




1635 




DC 


X'0568' 


CLR R6,R8 


1636 




BLS 


MESAGE 




1637 




BS 


EINI2 




1638 


CONEIT 


LHI 


87,X'«02' 




1639 




DC 


X'0A67' 


AR R6,R7 


16i»0 




DC 


X'0586' 


CLR R8,S6 


16IH 




BLS 


HESAGE 




16tt2 


BIN! 2 


B 


INI 




16H3 


HESAGE 


LHI 


R5,LAABEL 




ISttD 




BAL 


LINK, PRINT 




161(5 




BS 


BOPTIN 




161(6 


SESSAG 


LHI 


R5,LABBEL 




161(7 




BAL 


LINK, PRINT 




16U8 




BS 


ROPTIH 




16K9 


MESSAGE 


LHI 


R5,LABELL 




1650 




BAL 


LINK, PRINT 




1651 


ROPTIS 


B 


OPTIN 





CflT160«C 
CHT15C5C 
CNT1606J 
CNT16G7C 
CMT1603: 
CHT1609: 
CHT16iaC 
C«T16l-t: 
CHT1612: 
CMT1S13: 
CMTIf 1»C 

CMTieit : 

CnT1616, 
CMT161'': 
CHT161-:: 

CMT161?: 

cnTi62c; 
CfiTit:i; 
c!iTi6:2': 

C»1T1623: 
C!1T162a.; 

ciiTi6;5: 

CnT162«0 
CST1627: 
CHT152«: 
CUT 162?; 
CHT16 3C: 
Cf!T163-(C 
CHT16 32: 
CUT 16 33' 
CNT163a3 
CHT1635a 
CMT16 3*a 
CBT1637; 
C«T163?C 
CBT1639C 
CKTIfiliOO 
CMT164T; 
CflTl^ujC 
CBT16tt30 
CNT164ftC 
Cf1T16U5: 
CBT16U5C 
CMT16U7: 
CKT16tt-?Q 
CHT16'i=: 
CBT165C: 
CBTieSIC 
CHT1652: 
CBT1653C 
CBT165*-0 
CNT1655C 
Cf1T165<C 



COMKON KAGHETIC TAPE TEST PPO^^SAS 06-172R03A13 PAGE 37 13:07:U5 36/15/79 
SUREOUIIHE rSIT 

nCC 233a 1653 3ZS 3ELCHK fHTifi^iBn 

nCE C550 0002 1651» CLHI H5,2 SELi^H "^DE' ^2i.r„- 

1»D2 213B 1655 BNES SETDEV 



1AE3 


uaeo 


1804 


1AEC 


1»060 


1972 


1AF0 


aceo 


16D0 


1AF<t 


DE60 


34aA 


1AF8 


1*210 


1B66 


1AFC 


DE60 


3II7F 


1B00 


UIFO 


33FC 


iBoa 


I4 8fi0 


1810 


1B08 


ao60 


197i« 


1B0C 


233B 




1B0E 


^oeo 


16D0 


1B12 


DE60 


3U8A 


1B16 


«2fl0 


1366 


131A 


DE60 


347F 


1S1E 


tno 


33FC 



1322 


U8C0 


184C 


1326 


C5C0 


0007 


1B2A 


213tt 




132C 


C8C0 


3F3F 


1B30 


23C2 




1B32 


25C1 




1330 


HOCO 


3i»6lt 



1B38 


U8C0 


1828 


1B3C 


D2C0 


1966 


1Bl»0 


D2C0 


1967 


1B1K» 


07CC 




1B<»6 


10C0 


346A 


1BHA 


UOCO 


31*70 


IBilE 


itOCO 


3i»6C 


1B52 


UOCO 


3i»6E 


1B56 


l«0C0 


3i»76 


1B5» 


toco 


3i»74 



1656 • 

1557 * CHECK FOR SELCH FALSE SYSC 



1666 



1663 STH DEV,DEVSADE+2 

1669 STH DEV,ERRDE¥ 

1670 OC DEV,DISAR>( DISARM DEiflCE 

1671 BTC i>,FALSTS lUSTSaCTIOS TI»!ED OUT 

1672 OC DEV, CLEAR CLEAR DEVICE 

1673 BAL RET,REtfISO SErJISD TAPE 

1*7't LH DEV,DV2AD8*6 QET SECOND 3EyiCE ADDRESS 

1675 STH DEV.DEVSADH+U 

1676 BZS SETTSK 

1677 STH DEV,ERRDEV 

1678 OC DEV.DISARH DISARfl DEVICE 

1S79 BTC O.FALSI.I INSTRUCTION TII'ED OUT 

1680 OC DEV, CLEAR CLEAR DEVICE 

1681 BAL RET, REMIND REWIND ^h?^ 
1582 * 

1683 • SET UP TRACK KASK 

168U ♦ 

1685 SETTRK LH ai2,TRACPCt6 LOAD TR^CK VI»Rrp 

1636 CLHI R12,7 SEVEN? 

1687 BNES NINE NO - NIS^; 

1688 LHI R12,X'3F3F' 7-TRACK "AS' 

1689 BS SET«SK 

1690 NINE LCS R12,1 9-Ta«CK "ASi^ 



1593 * RESET FLAGS 

1695 LH R12,INTLEV+6 

1696 STB R12,INTLVL 
1597 STB R12,INTLVL+1 

1698 XHR R12,R12 

1699 STH R12,E0TFLG 

1700 STH R12,RrrCNT 

1701 STH R12,ERRFLG 

1702 STH R12,!<0DFLG 

1703 STH R12,WLRS 
170« STH H12,DEV2 



C?tT16590 
CMT 16600 
CMT16610 
C1T16620 



1ADi» 4870 181C 1659 SELCHK LH SELCH, 3ELADR^-6 LOAD SELCH A0D3E3S ^^116640 

i^uS 4070 1370 1660 STH SELCH, DEVSADB r-Tififi-^n 

1ADC 4070 16D0 1661 STH SELCH, EBRDEV r«T fififin 

1AE0 DE70 347E 1662 OC SELCH, STOP STOP SELCH f-^T fifi7n 

1AE4 4240 1B66 1663 BTC 4,FALSYN INSTRiJCTIOK ri>4=-D oiJT ^nnoo/u 

1664 * 

1665 * CHECK FOR DEVICE FALSE SYNC. 



CMT16680 
C1T16690 
CMT16700 

1657 SETDEV LH DEV,DEVADR+6 LOAD DEVICE ADDRESS CXT16720 



CNT16730 
CST16740 
C«T16750 
CNT16760 
C«T16770 
C.1T16780 
CI>(T16790 

r< I4tn ■• ^ n n n 

U n i M) O U U 

CKri6310 
CflT16820 
Cr!T16a30 
CNT16840 
C,1T16S50 
C>!T15860 
CKT16870 
CHT16880 
CI1T16890 

cnTiegco 

CMTIOgiO 
C,»IT16920 
C1T16930 
Cf!T16940 
C*1T1695C 



1691 SET«3K STH R12,1ASK C«T16960 



CHT16970 
C«!T16980 
C?IT16990 
C1T17000 
CMT17010 
CHT17020 
CMT170 30 
CJ1T17040 
CMT17050 
CKT17060 
Cf!T17070 
C".T17080 
CNT17090 
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SUBROUTINE INIT 

1B5E UOCO 3«68 170S STH R12,DE CHT17100 

1B62 «300 0D9A 1706 B INITRET CHT17110 

CHT17120 

CHTni30 

CHT171I4C 

CKT17150 

1B66 9D65 1711 FALSTfi SSB DEV,STAT SYNC ERROR CMT17160 

1B68 C800 3030 1712 LHI RO,C'00' ERROR 00 C?!T17170 

1B6C «1F0 0F82 1713 3AL R15,ERRDS CSI17ieO 

1B70 U300 0AE6 17m B OPTIM C»T171=tO 

CST17200 



170S 




STH 


R12,DE 


1706 




B 


INITRET 


1707 


* 






1708 


* 






1709 


* 


ERROR 


00 - DEVICE FALSE SYNC. 


1710 


* 






1711 


FALSTfi 


SSB 


DEV,STAT SYNC ERROR 


1712 




LHI 


R0,C'00' ERROR 00 


1713 




3AL 


R15,ERRDS 


17m 
1715 


* — .. .... 


B 


OPTIM 
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TEST BASIC CONFIDEMCE TEST 

1717 * *«******♦***************•*****************»****»*****♦#♦♦»****♦* CI1T17220 

1''18 » ♦ CMT17230 

1719 * TEST') * CMT172U0 

1720 * ♦ CHT17250 

1721 * PURPOSE: • C><T17260 

1722 * TO TEST THE HRITE-BACKSPACE-F EAD ABILITY 3F THE CSVICE * CMT17270 

1723 * A.ND DETECT EBROBS OS DATA TSANSFE? * CBT17260 
1721* » * CI':T1729C 

1726 * THIS TEST ASSUHBS THAT THE !!E>!08Y TEST, THE PaOCESSOR * CI1T17310 

1727 * TEST AMD THE TTY BASIC COHFIDESCE TEST HAD BEEN R'JS ♦ CHT17320 
1723 * WITHOUT DETECTING ANI FAIL'JHE * Cf»T17330 

1729 ♦ ♦ CHT17340 

1730 • DESIGN SPECIFICATIOHS: ♦ CHT17350 

1731 * THIS TEST USES THE MRITE-3ACKSPACE-READ FEATURE TO * C,HT17360 

1732 ♦ GEHEHATE FILES OF VARIOUS TEST PATTERNS. THE TEST * CMT17370 

1733 * PATTERNS ARE STORED IM BLOCKS OF 8 BYTES EACH. EACH * CNT17380 
173a * BLOCK IS A SERIES OF DATA rfHICH MILL SWITCH THE DATA * CHT17390 

1735 * LINES IM WORST CASE CONDITION. AT THE BEGINNING OF ' CJ1T17H00 

1736 * THE GENERATION OF A FILE, A BLOCK OF TEST PATTERS IS * CHT17«H0 

1737 * 8EPEATLY COPIED INTO THE WRITE BUFFER UNTIL THE • C«T17a20 

1738 * ^ BUFFER IS FULL. THE DATA IS THE SUFFER IS THEN * CHT17U30 

1739 • WRITTEN ONTO THE TAPE AS A RECORD. THE RECORD IS * CNT17ttU0 
17'»0 • BACKSPACED AND READ INTO THE READ BUFFER. THE TWO * C«T17lt50 
17141 * BUFFSSS ARE COMPARED FOR PROPER DATA TRANSFER. * C?1T17ft60 
17M2 * • CNT17U70 
17113 * HOW TO RUM THE TEST; * CHT17U30 
17«il * nO'JNT THE TAPE OH THE DRIVE AND TURN DEVICE ON LISE. ♦ C!1T17a90 
17«S * ENTER OPTIONS VIA CONSOLE DEVICE AND SELECT TEST T. ' CMT17500 
17i»6 * (REFER TO PUBLICATION 05-172A15 FOR CONSOLE INPUTS.) * CMT17510 
17'»7 » THE TEST IS EXECUTED UPON ENTERING RUN, AND CAS 3E » C!1T17520 
17'»8 ♦ TERMINATED BY THE USER AT »NY TIME BY DEPRESSING * CMT17530 
171*9 * BREAK OR TAKING DEVICE OFF LIHE. ♦ CPIT175U0 

1750 ■ * * CMT17550 

1751 * NOTE: » CNT17550 

1752 * THIS TEST IS FORCED TO BE EXECUTED AT LEAST ONCE * Cf1T17570 

1753 * EACH TIME WHEN A NON-ZERO VALUE IS ENTERED UNDER * CMT17580 
175« * OPTION DEVADH OR DV2AD0. ♦ CF1T17590 

1755 * . CMT17600 

1756 * OPTIONS: » CMT1761C 

1757 • TEST, LOOP, CONTIN, NOMSG, DEVADR, SELCH, i^ODE, TSACK, * CKT17620 

1758 * INTLEV, MODE, TRACK, RECFIL ♦ CMT17630 

1759 * W3TAaT,R3TART * CMT176U0 

1760 * * CMT17650 

1761 * ERRORS: * CMT17660 

1762 * 00, 01, 02, 04, 05, 06, 07, 09, 10, 11, 12, 13, la, * CMT17670 

1763 * 15, i»6, HI. 50 » CMT17'i80 
1761 * ♦ CMT17690 

1765 * **************************************************************** CMT17700 

1766 * CMT17710 
157U C8U0 1B7C 1767 TESTO LHI Rtt.TESTOI STARTING ADDRESS SET UP FOR CMT17720 
1=78 ttlEO 2B7E 1768 BAL R14,TSTSUP SECOND DEVICE TEST CHT17730 
1S7C U1E0 2B36 1769 TESTOI BAL P14,TSTINIT TEST INITIALIZE CMT177tiO 



COHHOH BUGHETIC TSPE TEST PROGRAM 06- 172H03I11 3 



PAGE UO 13:07:«5 08/16/79 



TSST BASIC COHFIDEHCE TEST 



1880 


bItO 


32i«C 


1B84 


U1ED 


2BB8 


1388 


itlDO 


31BE 


139C 


DFeo 


31*83 


1330 


aiFO 


2FEE 


1B91» 


«3C0 


2B96 


1B98 


HI CO 


31BE 


1B9C 


DE60 


3tt8a 


IRAQ 


U1F0 


2FE8 


1EAU 


naco 


1C82 


1BA8 


0755 




13AA 


UC50 


3H70 


1BAE 


2K22 




1BB0 


21136 




1BB2 


21^91 




1B3M 


U9A0 


1858 


1BS8 


OlfO 


2F0E 


1B3C 


97PB 




1BBE 


0788 




1BC0 


081B 




13C2 


nam 


3lt8C 


13C6 


4U140 


31*64 


13CA 


D080 


3F88 


1BCE 


riFo 


3618 


1BD2 


OAaF 




1BDU 


UC18 


0000 


1BD8 


D180 


3F88 


1BDC 


23C5 




1BDE 


D180 


3F88 


1BE2 


aoii8 


363A 


1BB6 


OA82 




1BE8 


Clio 


1BC2 


1BEC 


1580 


3U66 


1BF0 


«t280 


1BC0 


1BFl» 


C8M0 


C3C3 


1BF8 


D080 


3F88 


1BFC 


C1F0 


3620 


1C00 


0A8F 




1C02 


2681 




1C0l» 


D2't8 


0000 


1C08 


Dieo 


3F88 


1C0C 


2305 




1C0E 


cieo 


3F88 


1C12 


C2M8 


3A3B 


1C16 


2a81 




1C18 


mco 


2C3A 


1C1C 


tt3C0 


1C8E 


1C20 


0755 




1C22 


ao5o 


3i»70 


1C25 


'-tlEO 


2BEC 


1C2A 


l»1C0 


2CF11 


1C2E 


1*300 


1CB0 


1C32 


0755 





1770 




BAl 


B13, HAITI 


1771 




BAL 


R1U,FSTE0F 


1772 




BAL 


R13,4AIT2 


1773 




OC 


DE¥,3KSPAC 


177!* 




BAL 


R1U.SENS03 


1775 




B 


CHKEIbl 


1776 


RE0F01 


BAL 


B13,WAIT2 


1777 




OC 


DEy,READ 


1778 




BAL 


HIU.SENSOP 


1779 




B 


EOFSR01 


17BC 




XHR 


R5,R5 


1781 




STH 


SS.RTTCNT 


1782 


P3OC00 


LIS 


R2,2 


17»3 




LIS 


R3,6 


178U 




LIS 


R9,1 


1785 




LH 


R10,RECFIL+6 


1796 




BAL 


R1i», RESET 


17^7 




XHR 


R11,R11 


1733 




XKR 


R8,3o 


1783 


B0VDT1 


LHR 


R1,?11 


1790 


M0VDT2 


LH 


CHA?,WDATA(R1) 


1791 


«0VDT3 


NH 


CHAR.BA.TK 


1792 




STN 


H8,33AVE1 


1793 


HA1 


L>1 


RISfSfLIB 


1794 




AHR 


B8,R15 


1795 




STH 


CHAH,0(B8) 


1796 




in 


?8,3SAVE1 


1797 




BS 


HI1 


1798 


MX1 


LB 


R8,HSAVE1 


1799 




STH 


CHA3,HB'JFFCR8) 


1800 


HY1 


AHR 


B8,R2 


1301 




BXLE 


ai,H0TDT2 


1302 




CLH 


Ba.SBYTE 


1303 




BL 


H0VDT1 


180a 




LHI 


CHAR,X'C3C3' 


13D5 




STK 


a8,RSA¥E1 


1806 


HA2 


LB 


RIS.RLIB 


1807 




AHR 


R8,315 


1809 




AIS 


R8,1 


1809 




STB 


CHAR, 0(88) 


1810 




LB 


R8,a3AYE1 


1311 




BS 


HT2 


1812 


HX2 


LH 


a8,RSAVE1 


1813 




STB 


CHA?,RB'JFF+1(R8) 


19 ia 


HT2 


LIS 


S8,1 


1315 


GENFIL 


BAL 


R12,iJ?TRFC 


1816 




B 


HRIERO 


1817 




XHR 


S5,R5 


1913 




STH 


R5,RTICST 


1S19 


PR0C01 


BAL 


S1!!,H5PACE 


1320 


RERDR 


B«L 


R12,RDSEC 


1821 




B 


RDERO 


1322 




XHR 


R5,R5 



WAIT FOR !IHTN = 1 
WRITE £ SEHSK EOF 

CHECK BACKSPACE FUNCTION 

CHECK F3= EOF 



READ OVER EOF 

EOF SENSED? 

NO - REA3 EOF RETRY 



SET aUFFE'? LIMITS 



GENERATE 256 BYTE RECORD 
FRO'< 3 BYTE DATA BLOCKS 
3Y COPYING THE BLOCK INTO 



DELIBITER CHARACTER 



COUNTER FOR NUBBER OF RECORDS 
WHITE A RECORD 
ERROR RETURN 

RESET RETRY COUHTER 



D 1 r*i^e n \ r V 



cPHTrrt.' r'lir'j-'H 



READ A RECORD 
ERROR RFTIJRN 



CBT17750 
CHT1.7760 
CHT17770 
CHT17780 
C(1T17?90 
CMT17800 
C1T17810 
CBT178 2 
CMT17830 
CBT178(I0 
CHT1785C 
C!1T17860 
CHT17e70 
C«T178a0 
CMT17890 
CBT17900 
CBT17910 
CBT17920 
CBT17930 
CBT179M0 
CBT17950 
CHT17960 
CHT17970 
CBT17930 
CBT17990 
CHT18000 
CNT18010 
CHT18020 
CHT 18030 
CBT18040 
CBT18050 
CHT18060 
CMT18070 
CHT18080 
CHT18090 
CMT18100 
CMT18 110 
CMT18120 
CHT1813 
CBT181U0 
CMT18150 

CBTieieo 

CNT18170 
CBT18180 
CaT18190 
CBT18200 
CMT18210 
CNT13220 
CMT 18230 

CBT18250 
CHT18260 
CMT18270 
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TEST BASIC CONFIDENCE TEST 



1C3« 


«050 


3M70 


1C38 


U1E0 


2E3U 


1C3C 


tSfO 


1900 


1Ci»0 


2333 




1C42 


ttlFO 


2F90 


1CU6 


C180 


1C18 


ICUA 


lillO 


31BE 


1Cl»E 


9D65 




1C50 


C3E0 


0020 


1C5<* 


2333 




1C56 


HIEO 


33FC 


1C5A 


DE60 


3i»8B 


1C5E 


uuo 


2FE2 


1C62 


1300 


1CC0 


1C66 


0755 




1C68 


140 50 


3470 


1C6C 


0788 




1C6E 


08B1 




1C70 


2638 




1C72 


1»8I11 


3H8C 


1C76 


«230 


1BC6 


1C7A 


«1tO 


3026 


1C7E 


14300 


1BAE 



1C82 


«1E0 


30<tA 


1C36 


U3C0 


1B98 


1C3A 


<»300 


1BAE 


1C3E 


tt8E0 


3U6A 


1C92 


2337 




1C9« 


lilEO 


33FC 


1C98 


U1E0 


2BB8 


1C9C 


'43C0 


1C18 


1CA0 


i4lF0 


300E 


1CA<* 


aiFO 


30I4A 


1CA8 


U3C0 


1C18 


1CAC 


1*300 


1C26 


1C30 


aiEO 


300E 


1C3M 


aiEo 


SOUA 


1CB8 


4300 


1C2A 


1C3C 


4300 


1C38 


1CC0 


tlFO 


30itA 


1CCi» 


U300 


1C4A 


1CC3 


4300 


1C6C 



1823 




STH 


P5,?TrCHT 


RESET RETRY COUNTER 


1824 


PROC03 


3AL 


R14,C0BPAR 


COMPARE DATA 


1825 




LH 


S5,SD[rHP-l-6 


BUFFER Dt'KP? 


1826 




BZ3 


NODU«P 


SO - NO DUMP 


1827 




BAL 


BIU.DUHP 


D'J"!? READ BIFFER 


1328 


SODOMP 


BXLE 


P8,JENFIL 




1829 


WEOf02 


BAL 


313,rfAIT2 


WAIT FOR MMTN = 1 


1330 




SSR 


DEV,STAT 




1831 




THI 


STAr,X'20' 


EOT? 


1832 




BZS 


EOFMRK 




1833 




BAL 


RET,3E«IND 


REWIND TAPE 


1834 


EOFMBK 


OC 


DEY,.)EOF 




1835 




BAL 


ai4,SENS01 




1836 




B 


E0F£?02 




1837 




XHR 


35,35 




1838 




STH 


RS.RTTCNT 




1839 


PR0C02 


XHR 


S8,S8 


CHECC NEXT DATA ?L0( 


1340 




IHR 


R11,81 




1841 




AIS 


R3,8 




1342 




LH 


CHAS,WDATA(R1) 




1843 




BNZ 


?10¥DT3 


2E80? 


1344 




BAL- 


H13,TSTH0D 


YES - CHECK NEXT MOl 


1845 




B 


PPOCOO 




1846 


* 








1847 


- 


EfiBOH 


HKCJYESY PROCEDURES 




1848 


* 








1849 


E0FER01 


BAL 


Bi4,aErR!f 


RHTOY READ EOF 


1850 




B 


REOF01 




1851 




B 


PROCOO 




1852 


WRTERO 


LH 


Sla,EOTFLG 


WRITE ERROR RETRY 


1353 




BZS 


RCOVR 


EOT? - SO - RETRY 


1854 




EAL 


RET. REWIND 


REWIND TAPE 


1855 




BAL 


314,FSTE0F 


WRITE £ SENJE EOF 


1356 




B 


3ENFIL 




1357 


aCOVB 


BAL 


R14,ERBH5G2 




1858 




BAL 


R1!i, RETRY 


RETRY 5 TIMES 


1859 




B 


3EKFIL 




1860 




B 


PR0C01 




1961 


BDERO 


BAL 


31!4,ERR«SG2 




1862 




BAL 


?14, RETRY 


READ ERROR - RETRY ■ 


1863 




B 


RE3DR 




1864 




B 


PH0C03 




1365 


EOFER02 


BAL 


H14, RETRY 


RETRY WEOF 


1966 




B 


WE0F02 




1867 




B 


PROC02 





C«T18280 
CMT18290 
CfIT18300 
CMT19 310 
^118320 
■CKn8330 
CI1T19340 
CMT18350 
C?iT 1S 360 
CMT18370 
CST18380 
CHT13390 
CMT18400 
CHT18410 
CNT13420 
CNTia430 
CflT18440 
CMT 18450 
CBT18460 
CNT18470 
C«T184ao 
C'1T18490 
CMT1S500 
CMT18510 
CMT18520 
CMT13530 
CHT18540 
CMT18550 
CMT18560 
CHT18570 
CMT 18 58 
CI1T18590 
CMT19600 
CMT19610 
CMT18620 
C.MT18630 
CMT18640 
CMT18650 
CMT13(560 
5 TIKES CMT19670 

CMT19680 
CMT18690 
CMT13700 
CMT18710 
CMT13720 
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1CCC 


C8i»0 


ICDa 


1CD0 


itlEO 


2B7E 


ICDt 


U1E0 


2B36 


1CD8 


aiDo 


32ttC 


1CDC 


mFO 


2BBe 


1CE0 


uuo 


2F38 


1CEl» 


2«91 




1CE6 


48A0 


1858 


1CEA 


21(21 




1CEC 


U830 


1870 


1CF0 


2'»11 




1CF2 


2462 




1CF4 


9358 




1CF6 


nuto 


3'46!! 


1CFA 


2132 




1CFC 


2451 




1CFE 


«0 50 


3!»66 



1869 
1870 
1871 
1872 
1873 
187tt 
1875 
1876 
1877 
1878 
1879 
1880 
1881 
1882 
1883 
188U 
1885 
1886 
1887 
1888 
1889 
1890 
1891 
1892 
1893 
189« 
1895 
1896 
1897 
1898 
1899 
1900 
1901 
1902 
1903 
190H 
1905 
1906 
1907 
1908 
1909 
1910 
1911 
1912 
1913 
1911 
1915 
1916 
1917 
1918 
1919 
1920 
1921 



************************** 



(*«****************************** 



T E 



T 1 



prjpPCSE: 

TO TEST THE ABILITY OF THE DEVICE TO WRITF! ASD PEAD 
IfABIABLE LENGTH BEC05D;. 



ASSUMPTIONS; 

THIS TEST ASSUMES THAT TEjT 
DETECTING ANY FAILURE. 



HAD BEEN BUN WITHOUT 



DESIGN SPECIFICATIONS: 

THIS TEST USES THE WBITE-BACKSPACJ:-aEAD FEATUSK T3 
GENEBATE FILES HITH VA?IA3LE LENGTH BECOPDS. THE 
RECORDS ARE GENERATED IN THE rfRITE BUFFER KITH A 
SINIMUH OF 2 BYTES. THE =!£CORDS WRITTEN VARIES FROM 
00-01 TO 00-FF (OR 00-3F FOR 7 TRACK HAG. PAP!:.) 
THE TOTAL NUMBER OF FILES GENERATED IS DETiRII'iEn 
BY THE OPTION FILES. 



HOW TO RUN THE TEST: 

REFER TO TEST 0. SELEC 
OPTIONS. 



TEST 1 AND ITS APPROPRIATE 



OPTIONS: * 

TEST, LOOP, COHTIK, SOfSG, DEVADR, DV2ADB, SELCH, * 
INTLEV, MODE, TRACK, RECFIL, FILES DUMP * 

HSTART,RSTAPT • 

* 

ERRORS: * 

00, 01, 02, on, 05, 09, 10, 11, 12, 13, 1«, 15, U6, * 
i»7, 50 * 

* 



TEST1 



TEST11 



LHI 
BAL 
BAL 
BAL 
BAL 
BAL 
LIS 
LH 
LIS 
LH 
LIS 
LIS 
L38 
NH 

BNZS 
LIS 
GENFIL1A STH 



MXTM0D1 

VARFIL 

VARREC 



Rl»,TEST11 

R1«,TSTSUP 

R1H,TSTINIT 

R13,i(AIT1 

Ria,FSTE0F 

R14,BSET 

B9,1 

R10,RECFIL+6 

82,1 

R3,FILES+6 

R1,1 

R8,2 

R5,B8 

S5, MASK 

GEHFIL1A 

R5,1 

35,NBYTE 



STARTING ADDRESS SET UP FOR 
SECOND DEVICE TEST 
TEST INITIALIZE 
WAIT FOR NMTN=1 
WRITE & SENSE EOF 



RECORD PER FILE DESIRED 



CHT137IJ0 
CHT18750 
CMT13760 

CMT1S77Q 
CMT19780 
CMT1S7S0 
CMTieSOO 
CMTH^IC 
Cf?T13S20 

CMTieeso 
CRTiesao 

CMT1B650 

CMTieneo 

CMT1B-7n 
CMTiaBaO 
C!"Tie69C 
CMTiaSOO 
CTI'SvIC 
CBTIo'^20 
CMT18530 
C.1T189U0 
CMI1??5C 
CrT13960 
CMT18970 
CMTISaSO 
CMT1899C 
CMTigCOO 
CHT19010 
CMT19C20 
CMT19030 
CST190ttO 
CKT19050 
CHT19060 
CMT19070 
CKT19050 
CMTHOSiO 
CBT1910C 
CMT191 10 
C!iri9120 
CHT19 13C 
CMT19140 
CHT19150 
CHT19160 
CNT19170 
CMT19190 
CBT19190 
CMT19200 
CKT19210 
01119220 

C«(T132lfO 
CMT13250 

C«Ti;26C 
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VARIABLE RECORD LENGTH 



TEST 1 


VARIi 


1D02 


UltO 


2F0E 


1D06 


mco 


2C3A 


1D0A 


U300 


1D6t 


1D0E 


07E5 




1D10 


«050 


3470 


IDIH 


«U0 


2BEC 


1D18 


U1C0 


2CFlt 


1D1C 


U3C0 


1D86 


1D20 


07S5 




1D22 


U050 


3tt70 


1D26 


41E0 


2E34 


1D2A 


UB50 


1900 


1C2E 


2333 




1D30 


iilEO 


2Fgo 


1D3U 


C180 


1CF4 


1D38 


U1C0 


31BE 


1D3C 


C350 


0020 


1D40 


2333 




1D«2 


UIEO 


33FC 


1046 


DE60 


3U8B 


1DUA 


U1E0 


2FE2 


IDUE 


U300 


1D96 


1D52 


0755 




IDS'* 


10 50 


3170 


1D58 


Clio 


1CF2 


1D5C 


l»1C0 


3026 


1D60 


U300 


1CF0 



1D61* 


118E0 


316A 


1D68 


2337 




1D6A 


mEO 


33FC 


1D6E 


UIEO 


2BB8 


1D72 


ii300 


1D06 


1D76 


UIEO 


300E 


1D7A 


UIEO 


30UA 


1D7E 


1*300 


1D06 


1D32 


!t300 


1D11I 


1D36 


UIEO 


300E 


1D8A 


U1E0 


30«A 


1D8E 


U300 


1D18 


1D92 


H300 


1D26 


1D96 


UIEO 


30UA 


1D9A 


1300 


1D38 


1D9E 


U300 


1D58 



1922 




BAL 


R14, RESET 


1923 


GENFIL1 


RAL 


R12,WRTREC 


192tt 




B 


WRTEK1 


1925 




XHR 


H6,R5 


1926 




STH 


R5,STICST 


1927 


PR0C11 


BAL 


B14,BSPACE 


1928 


RERDR1 


BAL 


R12,8DREC 


1929 




3 


RDES1 


193Q 




XHS 


k5,35 


1931 




STH 


R5,RTYCST 


1932 


PR0C12 


BAL 


R14,C0NPAR 


1933 




LH 


R5,SDUHP+6 


1934 




BZS 


N0DMP1 


1935 




BAL 


R14,D0HP 


1936 


N0DKP1 


BXLE 


B8,¥ARHEC 


1937 


HE0F12 


BAL 


R13,HAIT2 


1938 




THI 


STAT,X'20' 


1939 




BZS 


E0FHRK1 


1940 




BAL 


BET, REMIND 


1941 


E0FHRK1 


OC 


DE¥,HEOF 


1942 




BAL 


H14,SE!IS01 


1943 




B 


E0FER12 


1944 




XHR 


R5,R5 


1945 




STH 


RS.RTICMT 


1946 


PB0C13 


BXlE 


BI.VARFIL 


1947 




BAL 


R13,TST«0D 


1948 




B 


NXT10D1 


1949 


* 






1950 


* 


ERROR 


RECOVERY PR 


1951 


* 






1952 


WRTERI 


LH 


R14,E0TFLG 


1953 




BZS 


RC0VR1 


1354 




BAL 


RET,SEMISD 


1955 




BAL 


R14,FSTE0F 


1956 




B 


GENFIL1 


1957 


BCOVfil 


BAL 


R14,ESB?1SG2 


1958 




BAL 


S14, RETRY 


1959 




B 


GENFIL1 


1960 




B 


PR0G11 


1961 


RDEBI 


BAL 


fi14,EBRSSG2 


1962 




BAL 


R14, RETRY 


1963 




B 


REH0R1 


1964 




B 


PR0C12 


1965 


E0FER12 


BAL 


R14, RETRY 


1966 




B 


HE0F12 


1967 




B 


PR0C13 



RESET EJFFEa LIMITS CMT19270 

WHITE A PECC^D CKT19280 

C«T19290 

CaT19300 

C!1T19310 

BACKSPACE £ STATUS CHECK C!1T19320 

?EftD A ?-CO=iD CHT19330 

CHT19340 

Ci5T19350 

C)1T19360 

COMPARE DATA CnT19370 

DUMP? CMT19380 

CMT19390 
YES - Da»P READ BUFFER CMT19U00 

CMT19410 

CMT19420 

CHT19430 

CHT19440 

KEiJISD TAPE CKT19450 

WRITE EOF ■ CHT19460 

CHECK FOR EOF URITTEN CHT19470 

CMT19480 
CMT19490 
CMT19500 
C.1T19510 
SEXT ■10:>~? CMT19520 

CMT19530 

CHT19540 

C!lT1955a 

* CMT19560 

WRITE £=?0S »ECOVEHY CMT19570 

EOT? - ST - PSTRY CHT19580 

RE>JIND :>.PE CMT19590 

;4RITE C "ES^E EOF CMTigbOO 

REPEAT «?ITr PROCESS CNT19610 

CMT19620 
RETRY 5 Tirv^ Cf!T19630 

CMT19640 

CMT19 650 

CMT19660 

RETRY 5 :i*E3 C",T19670 

CBT19680 

Cf1T19690 

RETRY 5 TIMES C!1T19700 

CMT19710 
CHT19720 



COHHOS HAGUETIC TAPE TEST PHOGRAB 06-172R03A13 
TFST 2 REWIND ASD SKIP 
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1DA2 


C8it0 


1DAA 


1DA6 


l»1E0 


2B7E 


1DAA 


dlEO 


2B36 


10AE 


aiEO 


33FC 


1DB2 


41E0 


2BB8 


1DB6 


aiEO 


2F0E 


1DBA 


ano 


2F3e 


1DBE 


214:1 




1DC0 


a830 


1858 


1DCU 


2(411 




1DC6 


11C0 


2C3A 


1DCA 


1300 


1E6E 


1DCE 


07?5 




1DD0 


14050 


3«70 


1DD(» 


Clio 


1DCfi 


1DD8 


U1C0 


31BE 


1DDC 


i»1F0 


2638 


1DE0 


2191 





1969 

1970 

1971 

1972 

1973 

197M 

1975 

1976 

1977 

1978 

1979 

19B0 

1581 

1982 

1983 

198a 

1935 

1986 

1987 

1988 

1989 

1990 

1991 

1992 

1993 

1994 

1995 

1996 

1997 

1998 

1999 

2000 

2001 

2002 

2003 

2001) 

2005 

2006 

2007 

2008 

2009 

2010 

2011 

2012 

2013 

2011* 

2015 

2016 

2017 

2018 

2019 

2020 

2021 



T E S T 2 

PURPOSE: 

TO TEST aEJISD ASD SKIP FMNCTIOSS. 

ASSUMPTIONS: 

THIS TEST ASSUMES THAT TEST HAD BSE*,' RUN WITHOUT 
DETECTING A.1I FAILURE. 

DESIGN SPECIFICATIONS: 

THIS TEST 3SSERATE3 A FILE WITH E3F MARKS AT BOTH 
E.VDS OF THE FILE. IT THEN REMINDS »,ND CHECK FOti 
H»ITN = 1 AHO 30T. IT SKIPS gOF'S OVE? THE FILE FOR AS 
HASr TIHE3 A3 IS SPECIFIED B!f OPTION REPEAT. 
THE FILE IS THEN READ AND THE iJHITE E READ BUFFERS 
ARE COiPARED TO ?IAKE SURE THAT THE SKIP OprpATICNS 
DID NOT DISPOSITION THE READER HEAD. 

HOW TO RUN THE TEST: 

REFER TO TEST 0. SELECT TEST 2 AND ITS APPROPRIATE 
OPTIONS. 

OPTIONS; 

TEST. LOO?. CONTIN, NOHSG, DEVADR. Dy2ADR. SELCH. 
ISTLEV, MODE, TRACK, HECFIL, REPEAT 
HSTART.RSTART 

ERRORS: 

00, 01, 02. 014, 05, 06, 07, 09, 10, 11, 12, 13, lit, 
15, a6, «7, 50 



************•♦*♦»»•***»******»♦***♦*♦»*»*«»*»«*.♦,»♦,*»** 



******* 



TEST 2 



TE3T21 



GENFIL2 



PB0C21 
TAPEND 



LHI 

BAL 

BAL 

BAL 

BAL 

BAL 

BAL 

LIS 

LH 

LIS 

BAL 

B 

XHR 

STH 

BXLE 

BAL 

BAL 

LIS 



Hi(.TEST21 

ai«,Tsrsup 

RllfTSTISIT 

RET, REWIND 

Rltt.FSTEOF 

B14, RESET 

ai<»,BSET 

R2,1 

R3,RErFIL+6 

R1,1 

R12, JHTREC 

i'RTER2 

R5,a5 

R5,arTC!IT 

R1 GESFIL2 

R13,aAIT2 

R1«,FSTE0F 

R9,1 



STARTING ADDRESS SET UP FOR 

SECOND DEVICE TEST 

TEST INITIALIZE 

REWIND TAPE 

WRITE £ SENSE EOF 

SET RUFFES LIMITS 

SET WRITE BUFFER 

RECORD PER FILE 

WRITE A "ECORD 



WHITE £ SENSE EOF 



CMT19 7«0 

CI1T19750 

CMT19760 

CMT19770 

CflT19780 

CMT19790 

CHT19800 

CMT19810 

CMT19820 

CMT19830 

C1T1981I0 

CHT19850 

CHT19860 

CMT19370 

CMT19880 

CMT19e90 

CMT19900 

CKT19910 

CMT19920 

CMT19930 

C«T199ltO 

CMT19950 

CHT19960 

CHT19970 

CMT19980 

CHT19990 

CMT20000 

CHT20010 

CMT20020 

CHT20030 

CHT20040 

CnT20050 

CHT2O06O 

CNT20070 

CHT20080 

CflT20090 

CHT20100 

CKT20110 

CnT20120 

CHT20130 

CHT201«0 

CHT20150 

CHT20160 

CHT20170 

CMT20180 

CMT20190 

CHT20200 

C«T20?10 

CMT20220 

i;nT20230 

CBT202(40 

CMT20250 

CNT20260 



COfiHOK SiiGMETIC TAPE TEST PROGRAH 05-t72R03A13 
TKST 2 REWISD ASD SKIP 



1DE2 


2UA1 




1DEI* 


U830 


187C 


1DE8 


0711 




IDEA 


0531 




1DEC 


2332 




IDEE 


27 31 




1DF0 


l»UO 


33FC 


IDFH 


9D65 




1DF6 


C3E0 


0020 


1DFA 


2137 




1DFC 


C800 


3039 


1E00 


U1F0 


0F82 


lEOt 


'»300 


2B9A 


1E08 


0788 




1E0A 


mco 


31BE 


1E0E 


DE60 


3086 


1E12 


IHEO 


2FEE 


1E16 


aaoo 


lESA 


1E1A 


C180 


1E0A 


1E1E 


0788 




1E20 


U1C0 


31BE 


1E2U 


DE60 


3tt87 


1E2a 


aiEO 


2FEE 


1E2C 


a300 


1E6A 


1 p^n 


f^ion 


■• E*"^ 


1E31* 


Clio 


1E08 


1E39 


UBSO 


1858 


1E3C 


<t1D0 


31BE 


1EU0 


DE60 


3«8l» 


1Ell!» 


H1E0 


2FE8 


1E«8 


U300 


1E90 


1Ei»C 


0755 




lEUE 


U050 


3l»70 


1E52 


2U11 




1E5i» 


itICO 


2CFl» 


1E58 


l»300 


1E9C 


U5C 


0755 




1E5E 


ao5o 


3U70 


1E62 


mso 


2E3l» 


1E66 


Clio 


1E5<* 


1E6A 


tt300 


2B96 



1E6E 


ttBEO 


3l»6A 


1E72 


2337 




1E71 


11 CO 


31BE 


1E78 


DE60 


3«83 


1E7C 


tsoo 


1DD8 


1E80 


M1E0 


300E 


1E8<I 


tlEO 


30IIA 


1E88 


1300 


1DC6 


lEec 


1300 


1DDI» 



2022 
2023 
202« 
2025 
2026 
2027 
2028 
2029 
2030 
2031 
2032 
2033 
2031 
2035 
2036 
2037 
2038 
2039 
20M0 
2041 
20112 
2043 
20«1| 
20l»5 
20*!6 
20«7 
20«8 
20 49 
2050 
2051 
2052 
2053 
2051 
2055 
2056 
2057 
2058 
2059 
2060 
2061 
2062 
2063 
206a 
2065 
2066 
2067 
2068 
2069 
2070 
2071 
2072 
2073 
207it 



REPEATO 



SKPFWD 
SKPFOR 



SKPRVS 



RE0F21 



PR0C24 
BERDH21 



PROC22 

RERD2 

* 

WRTKR2 
RC0VB2 



LIS 

LH 

XHR 

CLHB 

BES 

SIS 

BAL 

SSS 

THI 

BNZS 

LHI 

BAL 

B 

XHR 

BAL 

QC 

BAL 

B 

BXLE 

XHR 

BAL 

OC 

BAL 

B 

SXLE 

BXLE 

LK 

BAL 

OC 

BAL 

B 

XHR 

STH 

LIS 

BAL 

B 

XHR 

STH 

BAL 

BXLE 

3 



R10,1 

R3,BEPEAr+6 

81, R1 

B3,R1 

REPEATO 

R3,1 

RET, REWIND 

DEV,STAr 

STAT,X'20' 

SKPFWD 

R0,C'09' 

B1S,EBaDS 

CHKEHD 

Ra,B3 

K13,HAIT2 

DEV,SKIPF 

H1t,SENS03 

BEBD2 

R8, SKPFOR 

R8,R8 

ai3,WAIT2 

DEV,SKIPB 

R14,SENS03 

REBD2 

Da C r DDVC7 

•.< u , ^ i\ i t\ 1 .J 

R1, SKPFWD 

R3,BECFIL+6 

R13,WAIT2 

DEV,8EAD 

B1'4,SENS02 

E0FER21 

B5,85 

R5,RTYCNT 

R1,1 

R12,RDBEC 

BDER21 

85, R5 

R5,RirCNT 

aii4,COHPA8 

R1,REBDR21 

CHKEND1 
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SOMBER OF SKIP FUMCTIONS 

REWISD TAPE 

EOT? 

MO - EB808 09 



WAIT FOR KHTN=1 
SKIP FILE FORWASD 
CHECK F03 EOF 
SO EOF - ABORT TEST 



WAIT FOR N?1TN=1 
SKIP FILE REVERSE 
CHECK F0= EOF 
SO SOF - A30HT TEST 



SU!53EH OF RECORDS IS FILE 
WAIT FOR SHTH =1 
BEAD PASS EOF 
CHECK FO^ EOF 



READ A RECORD 



CO!"PAaE DATA 



ERROR RECOVEBI PROCEDURE 



LH 


Bm,EOTFLG 


EOT? 


BZS 


BC0VB2 




BAL 


B13,WAIT2 


rss - 


OC 


DEV,BKSPAC 


BACKSPACE - END FILE 


B 


TAPEND 




BAL 


B1i»,EBRHSG2 




BAL 


R1«, RETRY 


RETRY 5 TIMES 


B 


GESFIL2 




B 


PB0C21 





CHT20270 
CKT20280 
C'»T20290 
CHT20300 
CI1T20310 
CrT20320 
C!1T20330 
C!lT203aO 
C«T20350 
CHT2036a 
CST20370 
Ciir20380 
C'<T20390 
CST2OUO0 
C«T20<410 
C!1T20i*20 
CHT20t30 
C«T20attO 
C«T20il50 
Cf:T20<t60 
C«T20l»70 
CKT20480 
C.1T20«90 
C»r20500 

<" MT -> '^ C 4 n 
>" I ( 1 t,'j J \ \J 

C.'!T20520 
C*T 20530 
C!1T205tl0 
CKT20550 
C.1I2a560 
C!«T20570 
C!^T20S80 
CKT 20590 
C*T20bOO 
C;!T20610 
C»T20620 
C«T20530 
CRT206UO 
CMT20650 
CNT20660 
C''.T20e70 
C1T20580 
C»T20690 
CflT20700 
CHT20710 
CST20720 
CUT 20730 
C*T207U0 
C!!T20750 
CM~20760 
C'»?20770 
CKr20780 
C'1T20790 
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TEST 2 BEHIND AND SKIP 



1E90 


iJlEO 


30ltA 


lEgi) 


i»300 


1E3C 


1E98 


«300 


1E52 


1E9C 


9D65 




1E9E 


C3?0 


0060 


1EA2 


U230 


1E6A 


1EA6 


U1E0 


3Q0E 


1EAA 


U1£0 


30UA 


1EAE 


1300 


1E5H 


1EB2 


<43CO 


1E62 



2075 


E0FER21 


BAL 


R1«,8ETRI 


RETRY 5 TI1ES 


2076 




B 


RE0F21 




2077 




B 


PR0C2« 




2078 


HDER21 


SSR 


DE¥,3TAT 




2079 




THI 


STAT,X'50' 


EOT OR iCF? 


2090 




BNZ 


REBD2 


YES - E'j: of file 


2081 




BAL 


R14,ES3'!5G2 




2082 




BAL 


Rio.aETsr 


SETBY 5 TIliS 


2083 




B 


RESDP21 




2081 




B 


PRDC22 





CBT20S00 
CHT20810 
CHT20820 
CNT20830 
CFIT208U0 
CHT20850 
CMT20360 
CHT20870 
CHT20880 
CMT20890 



COMMON MAGNETIC TAPE TEST PROGRAM 06-172R03A13 PAGE 47 13:07:45 08/16/73 
TEST 3 INTERRaPT TEST 

2087 * ^ '-^120910 

2088 . T P S T 3 I CflT20920 

2089 . 1 .. b 1 3 ♦ CMT20930 

2090 * PURPOSE: * rlllllll 

2091 * THIS TEST CHECKS ALL DEVICE FrjNCTIONS USDER DEVICE * '^'"T ?^,^Rr, 

2092 * ISTEH3UPT. IT CHECKS FOH PROPER ISTEERUPT KECEPTION, * C-T^rq^o 

2093 * INTERRUPT QUEUING AND INTERRUPT DISARM £ DISABLE. ♦ CMT20980 

2095 * ASSUMPTIONS: * rMT5innn 

2096 * THIS TEST ASSUHES THAT TESTS 0, 1 5, 2 HAD BEES RUN » CMT21010 

2097 * WITHOUT DETECTING ANY FAIL'IRE. » CMT21020 

2099 * DESIGN SPECIFICATIONS: * CM^jinan 

2100 * THE USER CAM SPECIFI THE PARTICULAR FUNCTIONS HE * CKT210S0 

2101 * MISHS3 TO TEST BY SELECTING THE PROPER OPTIONS (SEE * CMT21Qfir 

2102 * PROGRAM DESCRIPTION 06-172A15, SECTION 6.U). DEFAULT • CaT2107D 
2 03 * OPTIONS EXECUTED ARE WRITE, BACKSPACE, READ ASD SKIP. • CNT21080 
l]°l * THE TEST FIRST WILL CHECK IF INTERRUPT CAN BE DISARMED, * CMT21090 

2105 * DISABLED AND QUEUED. IT THEN GENERATES A FILE, ENDS * CMT21100 

2106 » IT WITH AH EOF. BACKSPACE OVE° IT AND READ IT. IT * C-T21110 

2107 * REMINDS THE TAPE AND SKIPS FORWARD AND REVERSE CV-R * C«T21120 

2108 * THE FILE. ALL FUNCTIONS ARE PERFORMED UNDER INTERRUPTS, * CMT2113n 

2109 * IF ONLI rfRITE £ READ ARE 5PECIFTFD. THF tfst PraTdnc . ^u^i:.:.]: 

2110 * THE TAPE BEFORE PROCEEDING TO READ THE FILE. SETTING » CMTjii^O 

2111 * WEOF OPTION WILL WRITE EOF'S TO THE END OF TAP=^. * CMT711fiO 

2112 * (SEE APPENDIX 6 OF PUBLICATION 06- 172S00A 1 5) » CMT21170 

* CHT !? 1 1 fl n 

211'» * THE RECORD SIZE IN THIS TEST CAN 3E VARIED BY THF * CMT21190 

2115 * OPTION BYTES. THE LIMITS ARE FROM 2 TO X'400'. IF • -"T2i;on 

2116 * THE USER WISHES TO INCREASE THE UPPER LIMIT, HE MAY ♦ ^-^tltio 

2117 * DO SO BY INCREASING THE CONTENT OF LOCATION LA5FILED • c"lT2 720 

2118 * "X400-. IT MUST BE NOTED THAT THE LOWER LIMIT » C»T21230 

2119 * CANNOT BE LESS THAN 2 AND THE HIGHER LIMIT M-J": » CMT21^an 

2120 * NOT 3E CHANGED TO A VALUE HIGHER THAN X'7FF?'. . CMT21250 

2122 * HOW TO RUN TEST: * TM^^l^^n 

2123 * REFER TO TEST 0. SELECT THE DESIRED OPTIONS A'.D * rMT713«o 
nil * TI^ST 3. IF DU IS SET, THE TEST ^ILL PRINT THE * rMT2 290 
2 25 * MESSAGE: "TURN DEVICE OFF-LINE MOMENTARILY." * c'mT21300 
2 26 * THE DEVICE MUST BE TURN OFF LINE WITHIN 60 SECONDS * '^MT21310 
2 27 • AFTER THE MESSAGE, BUT MUST NOT STAY OFF-LINE FOR * c"t213?0 
2128 ♦ MORE THAN 30 SECONDS. * --T^ii^n 
2129* s-ni21J3a 

2130 * OPTIONS: * CKT213it0 

nil * TEST, LOOP, CONTIK, NOMSG, DEVADH, DV2ADR, SELCH. " -MT21360 

21^2 ' INTLEV, MODE, TRACK, P.^cFIL, JRITE, READ, HKSPAC, * C''T21370 

2133 • SKIP. DU . rMT?13fln 

2134 * HSTART.RSTART , r^TP 390 

2136 * ERRORS: I ^.nllV'l°. 

2137 * 00. 01, 02. 04. (IS. n7. .19 in , , -,„ -,, .-, ,, ^ b".:"']° 



2138 



00, 01, 02, 04, 05, 07, 03, 10, 11, 20, 21, 23, 23, 
24, 25, 26, 27, 28, 29. 30, 31, 32, 33, 34, 35, 37, 



CMT21420 
CMT21430 



COHBON H»GHETIC TAPE TEST PROGSAH 06-172B03A13 
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TEST 3 



INTERRUPT TEST 



1EB6 


CSI40 


1EBE 


1EBA 


It no 


2B7E 


1EBE 


mEo 


2B36 


1EC2 


M060 


1972 


1EC6 


uiro 


32MC 


1ECA 


4860 


189U 


1ECE 


U330 


lEFt 



1ED2 


C8E0 


2284 


1ED6 


UOEO 


196C 


1EDA 


DE60 


3489 


1EDE 


C850 


3S80 


1EE2 


HIFO 


112A 


1EE6 


U1F0 


126A 


1EEA 


CSEO 


3332 


IEEE 


UIEO 


319A 


1EF2 


1770 





1EF4 


C8 50 


2272 


1EF8 


4050 


196C 


1EFC 


DE60 


348A 


1F00 


41F0 


33FC 


1F04 


US 40 


0A22 


1F0 8 


9554 




1F0A 


4200 


0000 


1F0E 


C8 40 


30F0 


1F12 


9554 




1F14 


4950 


1864 


1F18 


2751 




1F1A 


4050 


3466 


1F1E 


41E0 


2F0E 


1F22 


41E0 


2F38 


1F26 


2491 




1F28 


48 AC 


1859 


1F2C 


41D0 


324C 


1F30 


48 50 


18AC 


1F34 


2135 




1F36 


48 50 


18A0 


1F3A 


4230 


21A4 



1F3E 


CSEO 


2278 


1F42 


40 50 


196C 


1F46 


DE60 


343A 



2139 

2140 

2141 

2142 

2143 

2144 

2145 

2146 

2147 

2148 

2149 

2150 

2151 

2152 

2153 

2154 

2155 

2156 

2157 

2158 

2159 

2160 

2161 

2162 

2163 

2164 

2165 

2166 

2167 

2168 

2169 

2170 

2171 

2172 

2173 

2174 

2175 

2176 

2177 

2178 

2179 

2180 

2181 

2182 

2183 

2184 

2185 

2186 

2187 

21H8 

2189 

2190 

2191 



38, 39, 48, 47, 50. 



* *«*****«*****< 



t**«********«***4 



►**♦**********♦*• 



r************ 



TEST3 



TEST31 



N0RI5T 



NXTN0D3 



EOFiOP 



LHI 


R4,rEST31 


BAL 


R14,T3T3UP 


BAL 


R14,TSTINIT 


STH 


DEV,DEVSADB+2 


BAL 


R13,WAIT1 


LH 


R5,DUINT+6 


BZ 


HORINT 



STARTING ADDRESS SET UP FOR 
SECOND DEVICE TEST 
TEST INITIALIZE 

WAIT FOR NMTN=1 
DU OPTION? 



TEST DU INTERRUPT (0-1) 



LHI 


B5,RTNDU1 




STH 


85,DEVINT+2 




OC 


DE¥,ENABL 


ENABLE DEVICE 


LHI 


R5,HSG10 




BAL 


B15, PRINT 




BAL 


R15,TSTBBK 


CHECK BREAK KET 


LHI 


R11,C' 32' 


ERROR 32 


BAL 


R14,TI>(E0iJT 




DC 


H'6000' 





TEST INTERRUPT DISASH 



LHI 

STH 

OC 

BAL 

LH 

EPSR 

NOP 

LHI 

EPSR 

LH 

SIS 

STH 

BAL 

BAL 

LIS 

LH 

BAL 

LH 

BNZS 

LH 

BNZ 



R5,RTNDSH 

R5,DEVINT+2 

DEV,DISARN 

RET, REWIND 

R4,PSW 

R5,R4 

R4,X'30F0' 

85,34 

R5,H0BrTE+6 

R5,1 

R5,NBYTE 

R14, BESET 

R14,BSET 

R9,1 

R10,RECFIL+6 

R13, HAITI 

R5,0PWRTt6 

EOFLOP 

R5,0PRD+6 

RDONLT 



SET UP RETURN ADDRESS FOR 
DISAR?) ERROR 
DISARM DEVICE 
REMIND TAPE 

ENABLE PSW INTERRUPT 

WAIT FOR ERRON0U3 INTERRUPT 

DISABLE PSH INTERRUPT 

SET UP RECORD LENGTH 



SET UP WHITE BUFFER 

RECORD COUNT 

NUSBER OF RECORDS PE3 FILE 



TEST INTERRUPT DISABLE 



LHI 

STH 
OC 



R5,RTNDSB 
R5,DEVINT+2 
DEV, DISAR* 



HRITE OPTION SET? 
READ OPTION ? 



SET UP RETURN ADDRESS FOR 

DISABLE ERROR 

DISARil DEVICE INTERRUPTS 



C1T21440 
CHT21450 
CHT21460 
CHT21470 
CMT214S0 
Cf!T21490 
CHT21500 
CflT21510 
CBT21520 
CMT21530 
C''T21540 
CHT21550 
CHT21560 
Cf!T21£70 
C!'.T2159 
CHT21530 
CMT21600 
CMT21610 
C!1T21620 
CI"T21630 
CKT21640 
CMT21650 
CBT21660 
CHT21670 
CST21680 
CHT21690 
CHT21700 
CI1T21710 
CHT21720 
CBT21730 
CNT21740 
CNT21750 
CaT21760 
CHT21770 
C1T21780 
CHT21790 
CNT21R00 
CnT21810 
CHT21820 
CflT21830 
CHT21840 
CI1T21850 
CnT21860 
CHT21870 
CHT21880 
C!1T21890 
CBT21900 
CI1T21910 
CST219 20 
CHT21930 
CBT21940 
C;iT21950 
Cf1T21960 



COSROS ."OSMETIC TAPE TFST PROGRAM 06-1 72'03)113 PASE i49 13:07:45 08/16/7'3 

TFST 3 niTKPSOPT TEST 

2192 OC DE¥,DSABL DISABLE DEVICE 

2193 3AL aid.FSTEOF WHITE f. SENSE EOF 
219a BAl B13,WAIT2 WAIT FOR N>ITS = 1 

2195 IH Rtt.PStf 

2196 EP3H 35,ai» ESABLE ?SH ISTER8UPT 

2197 SOP gAIT FOR SRKONOUS INTERRUPT 

2198 LHI 3it,X'30FO* DISABLE PSM TSTERHUPT 

2199 EPSE R5,RU 

it It V V 



1F0i 


DE60 


3088 


IFOE 


aiEO 


2BB8 


1F52 


«1C0 


31BE 


1F56 


U8Q0 


0A22 


1F5A 


95511 




1F5C 


«200 


0000 


1F60 


C8tO 


30F0 


1F64 


9551* 





1F66 


C850 


1F7C 


1F6A 


U050 


196C 


1F6E 


DE60 


3H89 


1F72 


C8B0 


3337 


1F76 


HI ED 


319A 


1F7A 


0002 





1F7C 


C8E0 


1FA2 


1F90 


1050 


196C 


1r3i» 


DE60 


3U8A 


1F8 3 


DE60 


3489 


IFSC 


DE60 


3482 


1F90 


C8B0 


3230 


1F9<» 


l»1E0 


319A 


1F98 


03E8 




1F9A 


U1D0 


324C 


1F9E 


4300 


1FC6 


1FA2 


D3E0 


16D2 


1FA6 


C550 


0034 


1FAA 


4330 


1FC6 


1FAE 


C800 


3039 


1F32 


C350 


0001 


1F36 


4230 


32A0 


1F3A 


41F0 


0F82 


1F3E 


DE60 


348A 


1FC2 


4300 


2B96 



1FC6 


cseo 


1FE8 


1FCA 


4050 


196C 


1FCE 


DE60 


348A 


1FD2 


DE60 


3489 


1FD6 


DE60 


348B 


1F3A 


C8E0 


3231 


1FDE 


41 EC 


319A 


1FE2 


0064 




1FE4 


43C0 


20 5C 


1FE8 


D350 


16D2 


1FEC 


C550 


004C 



2241 DC H'lOO* 

2242 3 STA05A 

2243 RT((03 IB STAT.IMTSTA CHEC< STATUS FOR 

2244 CLHI STAT,X'4C' ^X INTTRaUPT 



CHT21970 
C.1T21980 
CMT21990 
C.1T22000 
CJ1T22010 
CHT22020 
C1T22030 
C?1T22040 
CMT22050 



2201 * TEST IMTERRUPT QOEOIHG ri-TJ^nfin 

2202 * v.ni^/u6U 



2203 LHI R5,RTN01 SET UP 3ETURS ADDRESS 01 

2204 STH R5,DE¥INT+2 

2205 CC DEV,ENABL ESA3L DEVICE 

2206 LHI ai1,C'37' ERROR 37 

2207 BAL R14, TIMEOUT '^Air F03 IHIERRUPT 

2208 DC H'2' 

2209 * 

2210 * TEST INIEBBUPT AFTER REWIHD 

2211 * 

2212 RTN01 LHI 85,8T802 SET UP SETUFff ADDRESS 02 

2213 STH R5,DEVIHTt2 

2211* OC DEV, DISARM DISARM INTERRUPTS ■^,.^^.,^ 

2215 CC DE7,ENA8L ESA3LE DEVICE INTERRUPT C!<T22200 

CflT22210 
CMT22220 
CMT22230 
CMT22240 
CMT22250 
C'!T22260 
C.1T22270 
CST22280 



CHT22070 
CMT22080 
C'1T22090 
CBT22100 
Cf.T22110 
C!IT22120 
CMT22130 
CMT22140 
CMT22150 
CHT22160 
CMT22170 
CMT22180 
CMT22190 



2216 OC DEV,REWD .^EWIMD 

2217 LHI 311,C*20' SRHO? 20 

2218 BAL R14, TIMEOUT UAIT FOR INTERRUPT 

2219 DC H'1000' 

2220 BAL 313,WAIT1 WAIT FOR MKT'. = 1 

2221 B LPEOF 

2222 RTN02 L3 STAT,INTSTA GET INT^PSUPT STATUS 

2223 CLHI 3rAT,X'34' ^•3U' 

2224 RE LPEOF YES - GO ON C!1T22290 

2225 STER02 LHI R0,C'09' -iO - ERROR 09 r»T27^0n 

2226 STAERR THI STAT.I D'J ' r^TJO^in 

2227 BSZ 1TDU r.Ttiil„ 

2228 STERR2 BAL 315,ERRDS r).T7^^tn 

2229 CC DEV. DISARM -ii^^JJU 

2230 B CHXEND1 

2231 * 

CMT?23fiQ 

2232 ♦ TEST IHTERRUPTS AFTER WRITE -CF C-'T22370 

2234 LPEOF LHI B5,RTN03 SET RETURN ADDRESS 33 C1T22390 

2235 STH F5,DEVIHT+2 CMT22U0C 

2236 OC DEV, DISARM DISAR-! INTERRUPTS CMT22410 

2237 DC DEV, EHABL ENA3LE DEVICE IVTEHRUPT ^»^-.^,.^^ 

2238 OC DEV,MEOF .JHITF F3F 

2239 LHI 311,C'21' ERROR 21 
2200 BAl ai4, TIMEOUT JAIT FOR INTERRUPT 



CHT22340 
CHT22350 



CMT22420 
CfT22«30 
CKT22440 
CMT22450 
CMT22460 
C»1T22a70 
CnT2248C 
C!ir22490 



COHHON BAGIETIC TAPE TEST PROGRAIf 06-172803A13 
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TEST 3 


IflTEF 


1FF0 


M230 


2038 


1FFM 


CB50 


200 A 


1FF8 


WOSO 


196C 


1FFC 


C8B0 


3232 


2000 


41E0 


319A 


200U 


000* 




2006 


l»300 


205C 


200A 


D350 


16D2 


200E 


C5!0 


00*6 


2012 


l»230 


2038 


2016 


C8E0 


202C 


201A 


i»050 


196C 


20 IE 


C8E0 


3233 


2022 


MUO 


319A 


2026 


OOOA 




2028 


H300 


205C 


202C 


D350 


16D2 


2030 


C5E0 


0056 


2Q3a 


U330 


2060 


2038 


C350 


0001 


203C 


14230 


32A0 


201*0 


C800 


3035 


20H« 


C3E0 


0020 


20H8 


tt330 


1FB2 


2oac 


C8S0 


3506 


2050 


ttlFO 


112A 


205tt 


DE60 


3a8A 


2058 


H300 


2B96 


205C 


<|1C0 


31BE 


2060 


tSEO 


18D0 


2061* 


4230 


1FC6 



IHTEREDPT TEST 



2068 


21181 




206A 


DE60 


3i»8A 


206E 


U8 50 


3I*6E 


2072 


C550 


0002 


2076 


i»330 


22FE 


207A 


C8 50 


20BA 


207E 


1*050 


196C 


2082 


DOFO 


3628 


2086 


D1F0 


3618 


208A 


08EF 




20SC 


D1F0 


361C 


2090 


08CF 




2092 


D1F0 


3628 


2096 


«U0 


31BE 


209A 


DE60 


31*8 5 


20SE 


966B 




20A0 


9D65 




20A2 


2031 




20A4 


Di60 


31*89 



22U5 

2246 

221*7 

2248 

221*9 

2250 

2251 

2252 

2253 

2254 

2255 

2256 

2257 

2258 

2259 

2260 

2261 

2262 

2263 

2264 

2265 

2266 

2267 

2268 

2269 

2270 

2271 

2272 

2273 

2274 

2275 

2276 

2277 

2278 

2279 

2280 

2281 

2282 

2283 

2284 

2285 

2286 

2287 

2288 

2289 

2290 

2291 

2292 

2293 

2294 

2295 

2296 

2297 



STAOa 



BTN04 



STA04 



RTN05 



STAERR1 



STA05A 

ST AC 5 



WREC3 



BKE 

LHI 

STH 

LHI 

BAL 

DC 

B 

LB 

CLHI 

BSE 

LHI 

STH 

LHI 

BAL 

DC 

6 

LB 

CLHI 

BE 

THI 

BSZ 

LHI 

THI 

BZ 

LHI 

BAL 

OC 

B 

BAL 

LH 

3NZ 



STAERR1 

B5,RTNQ4 

R5,DEVINT+2 

B11,C'22' 

R14,Tt«E0UT 

H' 10" 

STA05A 

STAT.IHTSTA 

3TAT,X*46" 

STAERH1 

S5,RTN05 

R5,DEVIST+2 

F11,C'23' 

314, TIMEOUT 

H'10' 

STA05A 

STAr,INT3TA 

STAT,X'56' 

3TAQ5 

STAT.I 

STDU 

R0,C'05' 

STAr,X*70' 

STAEHR 

R5,H3G04 

S15, PRINT 

DElf,DISASfl 

CHKEHD1 

R13,WAIT2 

S5,0PHS0F+6 

LPEOF 



TEST WRITE INTERRUPTS 



STA06 



LIS 


B8,1 


cc 


DEV, DISARM 


LH 


RS.HODFLG 


CLHI 


R5,2 


BE 


SELIMtf 


LHI 


R5,RTH06A 


STH 


R5,DEVINT+2 


STH 


R15,RSA¥32 


LI 


B15,HLIK 


LHR 


311, R15 


LH 


S15,HLIB+4 


LHR 


B12,R15 


L>I 


R15,RSAV32 


BAL 


R13,*IAIT2 


oc 


DEV, WRITE 


HBB 


DEV.-RH 


SSR 


DE¥,STAT 


BTBS 


8,1 


OC 


DEV,ENABL 



SET UP 3ETU3H ADDRESS 04 

ERROR 22 

WAIT FO?! HEXT INTERRUPT 



CHECX ST».TUS FOP 
EO."* I<(T"sRRUPT 

SET JP RETURN ADDRESS Oo 

ERRO? 2 3 

iJAI- FOR THIRD ISTEHFUPT 



GET INTERRUPT STATUS 

CHECK STATUb FOR NHTN INTESSUPI 

YES - €.:> ON 

DJ? 

ERRO? DS 

Eo:? 

YES - 



WAIT FCH SMTN=1 
WEOF OPTION SET? 



DISAR* 3'IEUED INTERRUPTS 

SELCH 10DE? 

NO - SET UP RETURN ADDRESS 06A 



WAIT FOR NSTN=1 
DEVICE WRITE 
WRITE BLOCK 



ENABLE DEVICE INTERRUPT 



Cf1T2250C 
CMT22510 
CHT22520 
CNT22530 
CHT22540 
CMT22550 
CMT2256C! 
CnT2257C 
CHT2258D 
CBT22590 
Cni22600 
C?IT22610 
CHT22620 
CHT226.30 
CHT2264a 
C!1T2265Q 
CMT22660 
CNT22670 
C«T225fi: 
CST2269 J 
CI1T2270C 
C!1T22710 
CHT2272C 
CHT22730 
CHT227U0 
CHT22750 
CHT22760 
CHT22770 
CHT22780 
CNT2279C 
CnT22B00 
CHT22810 
CHT22820 
CHT22830 
CHT22840 
CHT228S0 
CHT22860 
CNT22e70 
C«T2288C 
CHT2289C 
CNT2290C 
CHT22910 
CHT22920 
CJ1T22930 
CHT22940 
CHT22950 
CHT22960 
CHT22970 
CHT22980 
CHT22990 
CNT23000 
CflT23010 
C.1T23020 



COKROK HUGNETIC TAPE TEST PBOGHAN 06-172S03A13 
TEST 3 INTEBRUFT T^ST 
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20A3 


C8B0 


3236 


20AC 


1>1E0 


319A 


20B0 


OOOA 




20B2 


mco 


320C 


20B6 


9D65 




20B8 


23C3 




20BA 


D3?0 


16D2 


20BE 


C350 


0001 


20C2 


U230 


32A0 


20C6 


C350 


0020 


20CA 


2336 




20CC 


mio 


2BEC 


20D0 


DR60 


3t7F 


20D4 


230D 




20D6 


C3=0 


OOOH 


20DA 


2131* 




20DC 


C350 


0002 


20E0 


2135 




20E2 


C800 


3130 


20E6 


<*1E0 


300E 


20EA 


C180 


206A 


20EE 


U1C0 


31BE 


20F2 


DE60 


3tt8B 


20F6 


<4850 


18B8 


20Fr 


■4530 


22C'» 



20FE 


C850 


212« 


2102 


t050 


196C 


2106 


«1C0 


31BE 


210A 


DE60 


348A 


210E 


DE60 


3U89 


2112 


DE60 


348 3 


2116 


C8E0 


323« 


211A 


U1E0 


319A 


211E 


0032 




2120 


«300 


29AC 


2121* 


D350 


16D2 


2128 


C550 


00«6 


212C 


2138 




212E 


C550 


ootc 


2132 


2135 




213« 


C800 


3037 


2138 


tt3O0 


1FB2 



213C 


C850 


2168 


2140 


MOSO 


196C 


21UU 


2481 




21i«6 


•tIDO 


31BE 


214A 


DE60 


348A 



2298 




LHI 


P11,C'26* 


2299 




BAL 


R14,TiaE0UT 


2300 




DC 


H'lO- 


2301 




3AL 


R13,HAIT3 


2302 




S5R 


DEV,STAT 


2303 




3S 


8TN06At4 


2304 


RT'106A 


LB . 


STAT,INTSTA 


2305 




THI 


STAT,1 


2306 




BS2 


MTDt? 


2 307 




THI 


STAT,X'20' 


2308 




3ZS 


WRT0N3 


2309 




3AL 


ai4,B3PACE 


2310 




OC 


DE¥, CLEAR 


2311 




3S 


HBTEND 


2312 


HRT0N3 


THI 


STAT,X'04' 


2313 




BdZS 


STER06A 


2314 




THI 


STAr,X'02' 


2315 




B!»ZS 


STA06A 


2316 


STE306A 


LHI 


R0,C'10' 


2317 




BAL 


B14,ERH!1SG2 


2318 


STA06A 


BXLE 


R3,WREC3 


2J19 


WBTEND 


BAL 


R13,WAIT2 


2320 




OC 


DEV,WEOF 


2321 




LH 


R5,0PBSP+6 


2 322 




Bi 


NObSP 


2323 


* 






2324 


* 


TEST 


BACKSPACE EO 


2325 


* 






2326 




LHI 


B5,RT»07 


2327 




STH 


R5,DEVINT+2 


2328 




BAL 


R13,WAIT2 


2329 




OC 


DEV,DISflRH 


2330 




CC 


DEV.ENABL 


2331 




OC 


DEV.BKSPAC 


2332 




LHI 


R11,C'24' 


2333 




BAL 


R14, TIMEOUT 


2334 




DC 


H'50' 


2335 




3 


3SFIL 


2336 


BT.-n? 


LB 


3TAr,I!ITSTA 


2337 




CLHI 


STAr,X'46' 


2338 




BNES 


STA07 


2339 




CLHI 


STAT,X'4C' 


2340 




BNES 


STA07 


2341 




LHI 


R0,C'07* 


2342 




S 


STAERR 


2343 


* 






2344 


* 


TEST 


BACKSPACE HE' 


2345 


♦ 






2346 


STA07 


LHI 


R5,RTN08 


2347 




STH 


R5,DEVINT*-2 


2348 




LIS 


R8,1 


2349 


BSPFIL 


BAL 


13.HAIT2 


2350 




OC 


DEV, DISARM 



EBRD? 25 

WAIT FOR INTERRUPT 

rfAIT FOR E0?1=1 



GET IMTERRUPT STATUS 
D'J7 



EOT? 

SO - BRANCH 



EX? 

rES - STATUS ERROR 

E0« INTERRUPT? 

YES - GO ON 

NO - ERROR 10 



WAIT FOR NHTH=1 

«RITE EOF 

BACKSPACE OPTION SET ? 



SET UP RETURN ADDRESS 07 

i<AIT FOR N.1T'i=1 

DISARR QUEUED IHTEFRUPTS 

ESARLE DEVICE INTERRUPT 

BACKSPACE OVER EOF 

ERROR 24 

liAIT FOR INTERR'JPT 



3ET INTERRUPT STATU3 



YES 



ERROR 07 



SET UP RETURN ADDRESS 09 



.<AIT FOR NMTN = 1 

DISARM aUEUfsD INTERRUPTS 



CMT23030 
CMT23040 
C'ir23C50 
CMT23060 
CMT23070 
CKT23080 
CMT23090 
CMT23100 

r-HTT 1 * ^ n 

CMT23120 
CMT23130 
CHT23140 
CNT23150 
CMT23160 
CMT23170 
CST23180 
CMT23190 
CMT2320C 
CMT23210 
CMT23220 
CMT23230 
CflT23240 
CMT23250 
CI1T23260 
CMT23270 
CMT23280 
CMT23290 
CMT23300 
CMT23310 
CMT23320 
C1T23330 
C.'«T23340 
C>1T23350 
CST23360 
CMT23370 
CMT23380 
CMT23390 
CMT23400 
CMT23U10 
CMT23420 
CST23430 
CMT23ii40 
CJIT23450 
CMT23460 
CMT23470 
C:iT23480 
CMT234qo 
C;iT23500 
CMT23~10 
CMT23520 
CMT23530 
CMT235it0 
CMT23550 



COHHON BAGMETIC TAPE TEST PBOGRAH 06-172R03111 3 
TEST 3 IKTEFROPT TEST 



21<»E 


DE60 


3II89 


2152 


DE60 


3l»a3 


2156 


C8B0 


3235 


215* 


l»1H0 


319A 


215E 


0032 




2160 


11 DO 


320C 


2164 


U300 


2190 


2168 


D350 


16D2 


216C 


C350 


0001 


2170 


«230 


32A0 


217K 


C3 50 


OOUO 


2178 


t230 


219C 


217C 


C350 


0004 


2180 


213a 




2182 


C350 


0002 


2186 


2135 




2188 


C800 


3038 


218C 


UIEO 


0F82 


2190 


CI 80 


21H6 


219tt 


MIDO 


31BE 


2198 


DE60 


3<»e3 


219C 


asso 


18A0 


21A0 


14330 


223E 



21Ali 


«1D0 


31BE 


21A8 


DE60 


3484 


21AC 


2tt81 




21AE 


DE60 


348A 


21B2 


<HE0 


2F62 


2136 


l»8E0 


346E 


21BA 


C5E0 


0002 


21BE 


1*330 


231E 


21C2 


C8 50 


21FE 


21C6 


4050 


196C 


21CA 


DOFO 


3628 


21CE 


D1F0 


3620 


21D2 


08BF 




21D« 


D1F0 


3624 


21D8 


08CF 




21DA 


D1F0 


3628 


21DE 


itlCO 


31BE 


21E2 


DE60 


3484 


21E6 


976B 




21E8 


DE60 


3489 


21EC 


C8B0 


3237 


21F0 


UIEO 


319A 


21Fa 


0032 




21r5 


ii1C0 


320C 


21FA 


9D65 




21FC 


2303 




21FE 


D3E0 


16D2 



2351 




OC 


DEY,E»ABL 


2352 




OC 


DEV.BKSPAC 


2353 




LHI 


B11,C'25' 


2354 




BAL 


BIU.TIHEOUT 


2355 




DC 


H'50' 


2356 




BAL 


B13,HAIT3 


2357 




B 


STA33 


2353 


RTffOa 


LB 


STAI,INT3TA 


2359 




THI 


STAT.I 


2360 




BNZ 


MTDJ 


2361 




THI 


STAT,X*40' 


2362 




BNZ 


Tsreo 


2363 




THI 


5TAT,X'04' 


2354 




BNZS 


STES06 


2365 




THI 


3TAr,X'02' 


2366 




BMZS 


STAGS 


2367 


STEP03 


LHI 


R0,C'08' 


2368 




BAL 


ai5,ERRDS 


2369 


STA08 


BXLE 


R8,BSPFIL 


2370 




BAL 


»13,WAIT2 


2371 




OC 


DEV,BKSPAC 


2372 


TSYRD 


LH 


a5,0PRD+6 


2373 




BZ 


HOREAD 


2374 


* 






2 37 5 


* 


TEST 


HEAD INTERRU 


2376 


* 






2377 


RDOSir 


BAL 


R13,HAIT2 


2378 




OC 


DEy, BEAD 


2379 




LIS 


H8,1 


2380 


RREC3 


OC 


DEY, DISARM 


2381 




BAL 


H13,CRBUF 


2382 




LH 


B5,80DFLG 


2383 




CLHI 


R5,2 


2384 




BE 


SELINR 


2385 




LHI 


R5,STM09A 


2386 




STH 


85,DE¥INT+2 


2387 




STH 


R15,ESAV32 


2388 




LH 


ai5,RLIH 


2389 




LHR 


R11,R15 


2390 




L« 


B15,RLIH-f4 


2391 




LHR 


R12,R15 


2392 




LH 


815,RSAy32 


2393 




BAL 


R13,WAIT2 


2394 




OC 


DEV,READ 


2395 




RBR 


DEV,R11 


2396 


STR09 


OC 


DEV.ESABL 


2397 




LHI 


R11,C'27' 


2398 




BAL 


R14,TinEO0r 


2399 




DC 


H'50' 


2400 




BAL 


BIS.WAITi 


2401 




SSR 


DEV,STAT 


2402 




BS 


RTS09A+4 


2403 


BTN09A 


LB 


STAT.INTSTA 
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ENABLE DEVICE INTERBUPT 
BACKSPACE OVER A RECORD 
ERROR 25 
UAIT FOR INTERRUPT 

WAIT FOR E0«=1 

GET INTKRNUPT STATUS 
D'J? 

EOF? 

EX? 

ITES - STATUS ERROR 

EOH? 

YES - GO an 

so - ERROR 08 



READ OPTION SET? 



WAIT FOR SMTN=1 
READ PASS EOF 

DISARM QUE0ED INTERRUPTS 
CLEAR READ BUFFER 

SELCH HODE? 

SET UP RETURN ADDRESS 09A 

SAVE R15 

HEAD BUFFER ADDRESS 

END ADDRESS 



HAIT FOR NBTN=1 

DEVICE READ 

READ BLOCK 

ENABLE DEVICE INTERRUPT 

ERROR 27 

WAIT FOR INTERRUPT 

WAIT FOS K0H=1 



GET INTERRUPT STATU; 



CHT23560 
CHT23570 
CHT23530 
CHT23590 
CST23600 
CfiT23610 
C.1T2362C 
CMT23630 
C.1T23640 
CHT2365C 
CMT23660 
CKT23670 
CPIT23630 
CHT23690 
CRT23700 
CHT23710 
CHT23720 
CHT23730 
CHT23740 
CHT23750 
C.1T23760 
CMT2377C 
CHT23780 
CBT23790 
CHT23800 
CHT23810 
CHT23820 
CnT23830 
CHT23840 
CHT23850 
CHT23860 
CMT23870 
CHT23880 
CHT23890 
CHT23900 
C«IT23910 
CHT23920 
CMT23930 
CHT23940 
CBT23950 
CHT23960 
CHT23970 
CHT23980 
CHT23990 
CHT2U000 
CMT24010 
CHT24020 
CMT24030 
CHT24040 
CHT24050 
CBT24060 
CHT24070 
^124080 



2202 


C350 


0001 


2206 


0230 


32A0 


220A 


C350 


0060 


220E 


1230 


223E 


2212 


C3S0 


OOOU 


2216 


213U 




2218 


C350 


0002 


221C 


2135 




221E 


CSOO 


3131 


2222 


«1E0 


300E 


2226 


<»850 


18DC 


222A 


2333 




222C 


«1E0 


2E3K 


2230 


1(850 


1900 


2231* 


2333 




2236 


ttlEO 


2F90 


223)1 


C180 


2UE 


223E 


HMO 


33FC 


22t»2 


1(850 


18CK 


22i»6 


14330 


2262 
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TEST 3 INTERRUPT TEST 

C!fT2i»090 
C!1T2U100 
C!<T2t(110 
0.1121120 
C^T2«130 
CMT2i(mo 
C1T2H150 
C''.T2K160 
CST2'«170 
CHT2ai80 
CMT2i(190 
CKT2U200 
C!1T2«210 
CHT2(*220 
C«T2a230 
CBT2U240 
CMT2K250 
C'<T2tt260 
CMT2K270 
CMT2U280 
C»fT2'»290 
CnT2f300 
CST2i»310 
CMT24 320 
CKT2a330 
CHT2U3ttO 
CflT2'(350 
CMT2'(360 
CHT2K370 
CHT211380 
CHT2U390 
CHT2a«00 
CI»T2'(K10 
C?lT2i|ii20 
C!1T2i(«30 
CHT2U«i(0 
2272 CSOO 3338 2l('»0 RTNDSH IHI R0,C'38* E8B3R 38 CrtT2U450 

2276 2303 2aai BS INTEB31 C!1T2aU60 

Cr!T2Ki«70 

C!1T2l(U90 
CMT2!(E00 
CNT2U510 
C1T2ttS20 
Cf!T2'*S30 
C!iT2«540 
C!iT2U550 
CMT2l(S60 
C1T2K570 

caTa^seo 

C(1T2'4590 
CI1T2')60C 
CHT24610 



22I4A 


D310 


3486 


224E 


C8E0 


3330 


2252 


HI CO 


33A0 


2256 


D310 


31187 


225A 


C8E0 


3331 


225E 


ttlCO 


33A0 


2262 


DE60 


348 A 


2266 


tlEO 


33FC 


226ft 


4 no 


3026 


226E 


U3C0 


1F2C 



2278 


C8Q0 


3339 


227C 


D3£0 


16D2 


2230 


4300 


1FBA 



2284 


D3E0 


16D2 


2288 


C350 


0001 


223C 


4330 


22B8 



2404 




THI 


STAT.I 


D'J? 


2405 




BNZ 


MTDU 




2406 




THI 


STAT.X'eO- 




2407 




BNZ 


S08EAD 




2408 




THI 


3TAr,X'04* 


EX? 


2409 




3NZS 


STER09A 




2410 




THI 


STAr,X'02' 


E0«? 


2411 




BNZS 


RDEND 




2412 


3TER09S 


LHI 


R0,C'11' 


KB SO?. 11 


2413 




BAL 


R14,ERHHSG2 




2414 


RDEND 


LH 


R5,CHPBE+6 


CONPABE OPTION SET ? 


2415 




BZS 


TRTDUS 




2416 




BAL 


ai4,C0MPAR 




2417 


TRYDUN 


LH 


S5,3DU}1P+6 


DUN? OPTION SET 


2418 




BZS 


C0NT3 




2419 




BAL 


ai4,DU!!P 


DUSP READ BUFFER 


2420 


C0NT3 


BXLE 


R8,aaEC3 




2421 


HOREAD 


BAL 


RET, REWIND 


SEiiIND TAPE 


2422 




LH 


R5,3PSKIP+6 


SKIP OPTION? 


2423 




BZ 


ENDTST3 




2424 


* 








2425 


♦ 


TEST 


SKIP INTERRUPTS 




2426 


* 








2427 




LB 


81,3KIPF 


LOAD SKIP FORWARD COMHAND 


2428 




LHI 


H11.C'30' 


ERROS 30 


2429 




BAL 


R12,SKIPINT 




2430 




L3 


RI.SKIPR 


LOAD SKIP REVERSE CONKAND 


2431 




LHI 


311,C*31' 


ERROR 31 


2432 




BAL 


R12,3KIPINT 




2433 


EMDTST3 


OC 


DEV, DISARM 




2434 




BAL 


RET, BEHIND 


HEJIND I4PE 


2435 




BAL 


R13,TST'<0D 




2436 




B 


NXT'?0D3 


NEXT ."(ODE 


2437 


* 








2438 


* 


DISARM FAILURE 




2439 


* 








2440 


RTNDSH 


IHI 


RO,C' 38* 


ERR3R 38 


2441 




BS 


INTER31 




2442 


♦ 








2443 


* 


EISABLE FAILURE 




2444 


* 








2445 


BTNDSB 


LKI 


B0,C'39' 


ERROR 39 


2446 


INTEH31 


LB 


STAT,INTSTA 


GET INTEaaUPT STATUS 


2447 




B 


STERR2 




2448 


* 








2449 


* 


DU INTERRUPT 




2450 


* 








2451 


RTNDU1 


LB 


STAT,INTSTA 




2452 




THI 


STAT.X'OV 


DU ilT SET? 


2453 




BZ 


DUSTER 




2454 


* 








2455 


* 


TEST 


DU INTERRUPT (1-0) 




2456 


* 
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TEST 3 


miEi 


2290 


CB50 


22A6 


22911 


0050 


196C 


2298 


C8B0 


3334 


229C 


aiEO 


319A 


22A0 


0BR8 




22A2 


4300 


32A0 


22A6 


D350 


16D2 


22AA 


C350 


0001 


22AE 


11330 


1EF4 


22B2 


C800 


3335 


22Be 


2303 




22B8 


C800 


3333 


22BC 


HIFO 


0F82 


22C0 


«300 


1EF4 


22Ca 


C8 50 


22EE 


22C8 


UOEO 


196C 


22CC 


41C0 


31BE 


22D0 


DE60 


348A 


22DU 


DEeO 


3489 


22D3 


DE60 


3482 


22DC 


C8B0 


3230 


22E0 


IIEO 


319A 


22Ett 


03Ea 




22E6 


mco 


324C 


22EA 


4300 


219C 


22EE 


D350 


16D2 


22F2 


C550 


0034 


22F6 


4230 


1FAE 


22FA 


4300 


219C 


22FE 


D310 


3485 


2302 


D320 


3480 


2306 


C830 


3618 


2 30 A 


C«40 


20BA 


230 E 


C850 


3390 


2312 


C8B0 


3238 


2316 


41C0 


3350 


231A 


4300 


20A4 


231E 


D310 


3484 


2322 


D320 


3481 


2326 


C8 30 


3620 


232A 


C8 40 


21FE 


232E 


C850 


3390 


2332 


C8B0 


3239 


2336 


41C0 


3350 


233A 


4300 


21E8 



2457 


LHI 


85,BT1IDU2 


2458 


STH 


R5,DSVINT+2 


2459 


LHI 


R11,C'34' 


2460 


BAL 


E14,TIHE0UT 


2461 


DC 


H'3000' 


24fi2 


B 


NTDU 


2463 BTNDU2 LB 


STAT,I(ITSTA 


2464 


THI 


STAT,X'0V 


2465 


BZ 


HORIHT 


2466 


LHI 


R0,C'35' 


2467 


BS 


DUSTER+4 


2468 DUSTER LHI 


R0,C'33' 


2469 


BAL 


R15,ERRDS 


2470 


B 


NORINT 


2471 SOBSP LHI 


B5,RTN10 


2472 


STH 


R5,DEVINT+2 


2473 


BAL 


R13,HAIT2 


2474 


OC 


DEV,DISAHK 


247 = 


OC 


DEV,EHABL 


2476 


OC 


DEV,REM0 


2477 


LHI 


H11,C'20' 


2478 


BAL 


R14,TIHE0UT 


2479 


DC 


H'lOOO* 


2480 


BAL 


R13. HAITI 


2481 


B 


TRTRD 


2482 RTS10 LB 


STAT,I8TSTA 


2483 


CLHI 


STAT,X'34' 


2484 


BHE 


SrER02 


2485 


B 


TRYRD 


2486 • 






2487 * 


TEST 


SELCH IHTERR 


2488 * 






2489 SELINW IB 


B1,HBITE 


2490 


LB 


H2, COURT 


2491 


LHI 


83,HLin 


2492 


LHI 


R4,HTH06A 


2493 


LHI 


R5,SELIIIT1 


2494 


LHI 


R11,C'28' 


2495 


BAL 


R12,SELI!»T 


2496 


6 


STA06 


2497 SEtlSfi LB 


R1,BEAD 


2498 


LB 


R2,60RD 


2499 


LHI 


B3,RLI« 


2500 


LHI 


R4,RTH09A 


2501 


LHI 


R5,SELIMT1 


2502 


LHI 


R11,C'29' 


2503 


BAL 


B12,SELUIT 


2504 


B 


STA09 



ERROR 34 

DO BIT SET ? 
ERROR 35 
ERROR 33 



NO BACKSPACE OPTION: 

SET UP INTERRUPT RETURN ADRS 10 

iJAIT FOR NNTN = 1 

DISAHH QUEUED INTERRUPTS 

ENABLE DEVICE INTERRUPT 

REWIND 

ERROR 20 

WAIT FOR INTERRUPT 

WAIT FOR NSTN=1 

GET INTERRUPT STATUS 
ET, NMTH AND EX=17 
NO - STATUS ERROR 



DEYICE CONHAND 

SELCH GO 6 COSHASD 

SELCH WRITE LIHITS 

DEVICE INTERRUPT RETURN ADDRESS 

SELCH INTERRUPT RETURN ADDRESS 

ERROR 2B 



DEVICE COHHAND 

SELCH GO £ COHHARD 

SELCH READ LIHITS 

DEVICE INTERRUPT RETURN ADDRESS 

SELCH INTERRUPT RETURN ADDRESS 

ERROR 29 



CaT24620 
CBT24630 
C1T24640 
C!<T24650 
CMT24660 
CHT24670 
CHT24680 
CHT24690 
CNT24700 
CMT24710 
CHT24720 
CNT24730 
CBT24740 
CHT24750 
CHT24760 
CHT24770 
CnT24780 
CHT24790 
CHT24800 
C.1T248 10 
CHT24820 
C!1T24«30 
C5T24e40 
CHT24850 
CHT24860 
CST24870 
C!!r24880 
CRT24890 
CHT24900 
CHT24910 
CHT24920 
CHT24930 
CMT24940 
C!1T24950 
CHT24960 
Cnr24970 
CHT24980 
C(IT24990 
CHT25000 
CHT2b010 
CRT25020 
CHT25030 
CBT25040 
CHT25050 
CKT25060 
CHT25070 
CNT25080 
CNT25090 
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233E 


CBUO 


23146 


23U2 


UliO 


237E 


23146 


ino 


2336 


23UA 


ttlEO 


33FC 


23'»E 


4U0 


2938 


2352 


07J5 




235U 


ao50 


31476 


2358 


«1E0 


2F0E 


235C 


uno 


2F38 


2360 


DOFO 


3628 


2360 


D1F0 


351C 


2369 


CBFO 


3020 


236C 


DOFO 


361C 


2370 


D1F0 


3«29 


237a 


USAO 


1858 


2378 


2*91 




237A 


2(t81 




237C 


i»1C0 


2C3A 



2506 
2507 
2508 
2509 
2510 
2511 
2512 
2513 
25111 
2515 
2516 
2517 
2518 
2519 
2520 
2521 
2522 
2523 
25214 
2525 
2526 
2527 
2528 
7529 
2530 
2531 
2532 
2533 
25314 
2535 
2536 
2 53 7 
2538 
2539 
25140 
25141 
25a2 
2543 
251411 
25145 
25146 
25«7 
25148 
25149 
2550 
2551 
2552 
2553 
255a 
2555 
2556 
2557 
2558 



-* ********** ft ***********4 



K***********i 



fr*4*************4 



T E S T U * 

* 
PURPOSE: 

TO TEST THE PROPER FUNCTIONING OF THE OVERFLOW * 

CIRCUITRI, AND THE DETECTION OF ABNORMAL I/O • 

CONDITIONS. * 

* 

ASSUMPTIONS: 

THIS TEST ASSUHES THAT TEST HAD SEEN RUN WITHOUT * 
DETECTING ANI FAILURE. * 

* 

DESIGN SPECIFICATION: • 

A RECORD IS GENERATED AND THE SANE RECORD IS READ * 

PLUS 32 BITES. THE PBOGRAN TESTS FOR DETECTION OF • 

ABNORMAL TERNINATION OF THE READ OPERATION. • 

CONVERSELI, OVERFLOW IS CHECKED Bf READING A RECORD • 

SHORTER THAN THE ONE WRITTEN. * 

* 

HOW TO RUN THE TEST: • 

SELECT TEST a AND APPROPRIATE OPTIONS, AND ENTER RUN. • 

REFER TO TE^ST 0. . • 

* 

OPTIONS: * 

TEST, LOOP, CONTIN, NORSG, DEVADR, DV2ADR, SELCH, * 

INTLEN, NODE, TRACK, RECFIL, DUMP * 

WSrARr,BSrABT * 

* 

ERRORS: * 

00, 01, 02, Ott, 05, 08, 10, 11, 12, 13, itt, 15, 1•^, • 

17, IB, 46, a7, 50. • 

* 
**************************************************************** 



TESTa 

TESTai 
NXTNODa 



GENFIL(4 
GFILai 



LHI 

BAL 

BAL 

BAL 

BAL 

XHR 

STH 

BAL 

BAL 

STH 

LH 

SHI 

STH 

LI 

LH 

LIS 

LIS 

BAL 



Ra.TESTUI 

R1«,TSTSUP 

Ria,TSTINir 

RET, REWIND 

Rla,FSTEOF 

R5,R5 

R5,WLRS 

Ria, RESET 

Ria,BSET 

R15,HSAV32 

R15,WLI«+a 

R15.32 

R15,WLIHta 

R15,RSAV32 

R10,RECFIL+6 

R9,1 

R8,1 

B12,WBTREC 



STARTING ADDi^ESS SET UP FOR 

SECOND DEVICE TEST 

TEST INITIALIZE 

REWIND TAPE 

WRITE 6 SENSF EOF 

CLEAR WHITE-LONG/READ-SHORT FLAG 

SET BUFFER LIBITS 
SET WRITE BUFFER 



NUMBER OF RECORDS 



WRITS A RECORD 



:«T25110 
C«r25120 
:«T25130 

:«.T25iao 

:."!T25150 
:'^T25160 
:«T25170 
:»T2E180 
C«T25190 
C?!T25200 
CaT25210 
:iT25220 
CHT25230 
C1T252aO 
"BT25250 
:"T25260 
C}"T25270 
C»T25280 
CBT25290 
CtT25300 
CST25310 
:mT25320 
C1T25330 

'WT-IC 5 MA 

\- . 4 £ -< ^-*\/ 

C»I25350 
C«T25360 
-HT25370 
C!T25380 
C»T25390 
C*T25a00 
:"'T25«10 
-''T25a20 
:«T25i430 

:«T2;i4«o 
:»T25a50 
:»T26a60 

:'!T25«7Q 
:«T25«80 
-•T25a90 
:«T2 650 
:.'!T25510 
:!1T25520 
C.»T25530 
:!?T255aO 
:'!T25550 
C?1T25560 
:iT25570 
C>!T25580 
■:>T25590 
C1T25600 
^^125610 
CNT25620 
C.1T25630 
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TEST a WRITE LOHG/READ SHORT 



2380 


4300 


23F8 


23eM 


07J5 




2386 


4050 


3470 


233A 


41 EO 


2BEC 


23eE 


41C0 


2CF4 


2392 


4300 


2410 


2396 


CBOO 


3136 


239A 


4110 


300E 


239E 


41E0 


304A 


23A2 


4300 


238 E 


23A6 


4850 


1900 


23AA 


2333 




23AC 


41E0 


2F90 


23B0 


C180 


237C 


23BI* 


41C0 


31BE 


23B8 


DEeo 


348B 


23BC 


4850 


3476 


23C0 


2337 




23C2 


41E0 


33FC 


23C6 


41C0 


3026 


2 3CA 


4300 


234A 


23CE 


24SF 




23D0 


4050 


3476 


23D1I 


41E0 


33FC 


2308 


41E0 


2BBB 


2 3 DC 


41E0 


2F0E 


23E0 


DOFO 


3628 


23E4 


DItO 


3624 


23E8 


CBFO 


0020 


23EC 


DOFO 


3624 


23FO 


D1F0 


3628 


23F« 


4300 


237A 


23F8 


48 EO 


346A 


23FC 


4230 


23BC 


2it00 


41E0 


300E 


2404 


4no 


304A 


2408 


4300 


237C 


240C 


4300 


238A 


2410 


9D65 




2412 


4800 


3476 


2416 


4330 


2436 


241A 


C350 


0080 


241E 


4230 


2442 


2422 


C800 


3137 


2426 


41E0 


300E 


242A 


41E0 


304A 


242E 


4300 


238E 


2432 


4300 


23A6 


2436 


C3E0 


0080 


243A 


2334 





2559 B 

2560 XHR 

2561 STH 

2562 PR0C41 BAL 

2563 REBDB4 BAL 

2564 B 

2565 LHI 

2566 BAl 

2567 BAL 

2568 B 

2569 PR0C42 LH 

2570 BZS 

2571 BAL 

2572 PR0C43 BXLE 

2573 BAL 

2574 DC 

2575 TAPEMDU LH 

2576 BZS 

2577 BAL 

2578 BAL 

257 9 B 

2580 C0HT4 LIS 

2581 STH 

2582 BAL 

258 3 BAL 

2584 BAL 

2585 STH 

2586 LB 

2587 SHI 

2588 STH 

2589 LH 

2590 B 

2591 * 

2592 * 

2593 • 

2594 MRTER4 LH 

2595 BMZ 

2596 BAL 

2597 BAL 

2598 B 

2599 B 

2600 BDER4 SSB 

2601 LH 

2602 BZ 

2603 THI 

2604 BUZ 

2605 LHI 

2606 UERLS BAL 

2607 BAL 

2608 B 

2609 B 

2610 WSRL THI 

2611 BZS 



W8TER4 

R5,R5 

R5,RTIC!IT 

S14,BSPACE 

B12,HDREC 

BDER4 

B0,C'16' 

R14,EBRKSG2 

R14,RETBT 

RERDB4 

B5,SDUHP*6 

PROC43 

R14,D0>IP 

R8,GFIL41 

R13,MAIT2 

DEr,UEOF 

R5,WLHS 

C0NT4 

RET.REMIIID 

H13,TST'10D 

NXT'I0D4 

H5,15 

R5,WLBS 

RET.REHIND 

R14,FSTE0F 

R14, RESET 

R15,RSAV32 

R15,RLIH+4 

R15,32 

H15,RLIS*tt 

H15,RSAy32 

GEHFIL4 



ERROR PROCEDURE 



R14,E0TFLG 

TAPEND4 

R14,EBRKSC2 

R14,RETET 

GFIL41 

PR0C41 

DE¥,STAT 

HO.ULRS 

USRL 

STAT,X'80' 

NORHAL 

R0,C'17' 

R14,eBRHSG2 

B14, RETRY 

RESDR4 

PR0C42 

STAT,X'80' 

NORHAL 



BACKSPACE A RECORD 

READ A PECORD 

ERROR RETURN - CHECK STATOS 

NORHAL BET03H - ERROR 16 

RETRY 5 TISES 

DOHP OPTION? 

YES - D'JHP READ BUFFER 

CONTINUE 

WAIT FOR NBTN=1 

HBITE-LONC /READ-SHORT? 

REWIND TAPE 

YES - CHECif HORE BODE 

NO - SET WSITE-LONG/READ-SHORT FLAG 

REWIND TAPE 
WRITE £ SENSE EOF 
SET BUFFER LIBITS 



GO TO NEIT STEP 



EOT? 

YES - END OF STEP 

RETRY 5 TIBES 



WRITE- L0NG/8EAD-SH0HT? 

YES - ERR SET? 
YES - CONTINOE 
HO - ERROR 17 , 

RETRY 5 TIHES 



ERR SET? 

NO - COSTISUE 



CIIT2S640 

CBT25650 

CHT25660 

CBT25670 

CHT25680 

CHT25690 

C1IT25700 

CHT25710 

CBT25720 

CHT25730 

CHT25740 

CHT25750 

CHT25760 

CHT25770 

CHT25780 

CHT25790 

CBT25e00 

CBT25810 

CBT25820 

CBT25830 

CBT25840 

CBT25850 

CBT25860 

CBT25870 

CHT25880 

CHT25890 

CHT25900 

CHT25910 

CHT2S920 

CHT25930 

CHT25940 

CHT25950 

CBT25960 

CBT25970 

CBT25980 

CHT25990 

CHT26000 

CHT26010 

CHT26020 

CBT26030 

CHT26040 

CBT26050 

CHT26060 

CBT26070 

CBT26080 

CHT26090. 

CHT26100 

CHT26110 

CHT26120 

CBT26130 

CBT26140 

CHT26150 

CBT26160 
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TEST 1 WBITF LOSG/READ SHORT 

21430 C800 3138 2612 LHI R0,C'13* YES - ESSOP 18 CHT26170 

2««0 220C 2613 BS WERLS C,>!T26180 



2612 




LHI 


R0,C'13* 


2613 




BS 


WERLS 


261i« 


NORHAL 


XHR 


R5,R5 


261S 




STH 


BS.RTYCHT 


2616 




B 


PR0C«2 



2ai»2 0755 2611* NORHAL XHR R5,R5 CMT26190 

21*1*1* 1050 3470 2615 STH RS.RTYCHT Cf,T26200 

21»'»8 «300 23A6 2616 B PR0C«2 C?'.T26210 
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2«ilC 


C8«0 


2a5it 


2«50 


41E0 


2B7E 


2lt5« 


ItlEO 


2B36 


2058 


ttlEO 


3 3FC 


215C 


aiE0 


2BB8 


2160 


2«92 




2«62 


C8A0 


01FF 


2*66 


ttOAO 


31*66 


24eA 


K1E0 


2F0E 


206E 


0788 




2470 


ft8<lO 


3«6i» 


2474 


DO SO 


jFSS 


2U78 


D1F0 


3618 


247C 


OAFS 




2U7E 


i»0«F 


0000 



2618 
2619 
2620 
2621 
2622 
2623 
2624 
2625 
2626 
2627 
2628 
2629 
2630 
2631 
2632 
2633 
263<» 
2635 
2636 
2637 
2638 
2639 
2610 
2641 
2642 
2643 
2644 
2645 
2646 
2547 
2648 
2649 
2650 
2651 
2652 
2653 
2654 
2655 
2656 
2657 
2658 
2659 
2660 
2661 
2662 
2663 
2664 
2665 
2666 
2S67 
2668 
2669 
2670 



•****»*****•*******♦******•*****•*»***•*•*****♦****•******»•*** 

TESTS 

PURPOSE: 

TO TEST T4E PROPER GENERATION OF I NTER-RECORD-GAPS. 
AHD DETECTIOH OF GAP DATA. 

NOTE: PROLONGED REPETITION OF THIS TEST flAI HEAR THE 
FRONT PORTION OF THE TAPE. 

ASSUMPTIONS: 

THIS TEST ASSUMES THAT TESTS AND 4 HAD BEEN RUN 
WITHOUT DETECTING ANY FAILURE. 



DESIGN SPECIFICATIO 
THIS TEST GESER 
ALL ONES (FF) 
WRITE A SHORT B 
THE SAME PORTIO 
BACKSPACE DOES 
ALL THE RECORDS 
OTHER. THE LAST 
TAPE IS REWOUND 
REPEATED FOB TH 
OPTION IRG. THI 
DATA LEFT BY TH 



NS; 

ATE3 LONG (512 BITES 

N THE TAPE. IT THEN 

ECOHD OF VARIOUS DAT 

N OF THE TAPE FOR 10 

NOT ALWAYS STOP AT T 

ARE NOT WRITTEN DIR 

RECORD IS WRITTEN R 

AND THE RECORD READ 

E NUMBER OF TIMES AS 

S ENSURES THE PICKIN 

E PREVIOUS RECORDS W 



) RECORDS OF 
REWINDS AND 
A (OO-FF) OVFB 
TIMES. SINCE 
HE SAME SPOT, 
ECTLY OVER EACH 
EVERSED. THE 
THE READ IS 
SPECIFIED BY 
G UP OF ANY 
RITTEN. 



* OPTIONS: 

* TEST, LOOP, CONTIM, NOMSG, DEVADR, DV2ADR, SELCH, 

* ISTLEV, MODE, TRACK, IRG 

* HSTART,RSTABT 

* 

* ERRORS: 

* 00, 01, 02, 04, 05, 07, 08, 10, 11, 12, 13, 14, 15, 
19, 46, 47, 50 

* 

* ************************************************************** 



TEST5 
TEST51 



HB2 



LHI 

BAL 

BAL 

BAL 

BAL 

LIS 

LHI 

STH 

BAL 

XKR 

LH 

STM 

LH 

AHR 

STH 



H4,TEST51 

B14,TSTSUP 

R14,TSTIHIT 

RET, REWIND 

B14,FST£0F 

R9,2 

RIO, 511 

RIO, MBYTE 

R14, RESET 

R8,R8 

CHAR, MASK 

n3,n3AVE1 

H15,WLIM 

R15,R8 

CHAR,0(R1S) 



STARTING ADDRESS SET UP FOR 
SECOND DEVICE TEST 
TEST INITIALIZE 
SBWIHD TAPE 
WRITE £ SENSE EOF 

SET UP FOB 512 BYTE RECORD 

SET BUFFER LIMITS 

DATA OF RECORD IS 



CIIT26230 
CIIT26240 
CHT26250 
CHT26260 
CMT26270 
CHT26280 
CMT26290 
CHT2'.300 
CMT2f.310 
CHT26320 
CHT26330 
CJIT26340 
CHT26350 
CMT26360 
CHT26370 
CMT26380 
CMT26390 
CHT26400 
CaT26410 
CHT26420 
CMT26430 
CHI26440 
CHT26450 
CHT26460 
CHT26470 
CMT26U80 
CHT26490 
CMT26500 
CHT26510 
CnT26520 
CHT26530 
CKT26540 
CMT26550 
CFIT26560 
CHT26570 
CMT26580 
CHT26590 
CMT26600 
CMT26610 
CHT26620 
CST26630 
CMT26640 
CMT26650 
CMT26660 
CHT26670 
CHT26680 
CHT26690 
CHT26700 
CHT26710 
C ST 2 6 7 2 
CMT26730 
CMT26740 
CHT26750 
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2482 


D180 


3F88 


2186 


2305 




2438 


D1S0 


3F88 


2480 


4048 


363* 


2490 


C180 


2474 


2494 


D350 


3465 


2498 


4050 


3466 


249C 


2491 




249E 


24A4 




24A0 


0788 




24A2 


41C0 


2C3A 


24A6 


41F0 


0F82 


24AA 


C180 


24A2 


24AE 


41C0 


31BE 


24B2 


DE60 


3488 


2486 


41E0 


33FC 


24BA 


41E0 


2F0E 


248E 


41E0 


2F38 


24C2 


41E0 


2BB8 


24C6 


41 DO 


31BE 


24CA 


DE60 


3483 


24CE 


41E0 


2FEE 


24D2 


4300 


2B96 


24D6 


C8A0 


0064 


24DA 


0788 




24 DC 


41 CO 


2C3A 


24E0 


4300 


252E 


24E4 


41E0 


2BEC 


24E8 


C180 


24DC 


24EC 


41E0 


2C0A 


24F0 


4 ICO 


2C3A 


24F4 


4300 


254A 


24F8 


41 DO 


31BE 


24FC 


DE60 


348B 


2500 


41E0 


33FC 


2504 


41C0 


2CF4 


2508 


41F0 


0F82 


250C 


41E0 


2E34 


2510 


4SA0 


1889 


2514 


0788 




2516 


4no 


2BEC 


251A 


41C0 


2CF4 


251E 


41F0 


QF82 


2522 


41E0 


2E34 


2526 


C180 


2516 


252A 


4300 


2B96 



252E 


48F0 


346A 


2532 


2338 




2534 


C800 


3139 


2538 


085F 





2671 




Lfl 


R8,8SA¥E1 


2672 




BS 


Hr3 


2673 


HX3 


LH 


R8,BSA¥K1 


2674 




STH 


CHAR,«BUFF(R8) 


2675 


HY3 


BXLE 


33,J!JHK1 


2676 




LB 


a5,flASK + 1 


2677 




STH 


R5,SBYTE 


2678 




LIS 


39,1 


2679 




LIS 


S10,4 


2680 




XHR 


R8,R8 


2681 


JUIIK2 


BAL 


R12,W»TREC 


2682 




BAL 


R15,ERRDS 


2683 




BXLE 


S8,JUNK2 


2684 




BAL 


R13,WAIT2 


2685 




OC 


DEV, WEOF 


2686 




BAL 


RET, REWIND 


2687 




BAL 


R14, RESET 


2688 




BAL 


S14,BSET 


2689 




BAL 


R14,FSTE0F 


2690 




BAL 


R13,WAIT2 


2691 




OC 


DEV,BKSPAC 


2692 




BAL 


814,SENS03 


2693 




B 


CHKEIND1 


2694 




IHI 


RIO 100 


2695 




XHR 


R8,R8 


2696 


CIGCHK 


BAL 


R12,aRTFEC 


2697 




B 


WRTER51 


2698 


PB0C51 


BAL 


H14,BSPACE 


2699 




BXLE 


R8, CIGCHK 


2700 




BAL 


R14,SWAP 


2701 




BAL 


R12,UHTREC 


2702 




B 


tfRTER52 


2703 


PR0C52 


BAL 


E13,HAIT2 


2704 




OC 


DEV,HEOF 


2705 




BAL 


RET.REWISD 


2706 




BAL 


S12,BDRKC 


2707 




BAL 


R15,ERRDS 


2708 




BAL 


R14,C0«PAR 


2709 




LH 


R10,IRGDAT+6 


2710 




XHR 


= 8,38 


2711 


GAPDAT 


BAL 


R14,BSPACB 


2712 




BAL 


R12,RDREC 


2713 




BAL 


RIS.ERRDS 


2714 




BAL 


R14,C0BPAR 


2715 




BXLE 


S8, GAPDAT 


2716 




B 


CHKEMD1 


2717 


* 






2718 


* 


ERROR 


PBOCEDURE 


2719 


* 






2720 


HRTER51 


LH 


R15, EOTFLG 


2721 




BZS 


WER51 


2722 


NTNERR 


LHI 


R0,C'19' 


2723 




LHR 


R5,R15 



SET UP FOR 4 RECORDS 
WRITE 4 LOXG RECORDS 



WRITE EOF HARK 
REWIND TAPE 
SET BUFFER LIMITS 
GENERATE WRITE BUFFER 
WRITE £ SENSE EOF 
WAIT FOR Ni«TN=1 

CHECK FOR EOF 

NO EOF - ABORT T5ST 

SET 100 Ti'^ES 

WBITE A RECORD 

BACKSPACE A RECORD 

REVERSE WRITE B'IFFER 
WBITE A RECO.^D 

WAIT FOB H!1TN = 1 
WRITE EOF 
REWIND TAPE 
READ A RECO'D 

COMPARE DATA OF LAST RECORD 



BACKSPACE 
READ A RECORD 



REPEAT OVER SAKE RECORD 

EOT? 

IfES - TAPE NOTION ERROR - 19 



CMT25760 
CNT26770 
CNT26780 
CJiT26790 
C«T26e00 
C!1T26810 
C1T26820 

n MT -i^ o ■> /\ 

CBT26840 

CRT26850 

CnT26860 

CMT26870 

CMT25880 

CBT26890 

CHT26900 

CST26910 

CNT26920 

CHT26930 

CNT26940 

CNT26950 

CNT26960 

CNT26970 

CBT26980 

CfT26990 

CNT27000 

CHr27010 

CKT27020 

CNT27030 

CHT27040 

CaT27050 

C«!T27060 

C'1T27070 

CKT27080 

C'!T27090 

C.1T27100 

CNT27110 

CflT27120 

C1T27130 

CNT27140 

CNT27150 

C?'T271f0 

C»!T27170 

C«T27180 

C,1T27190 

CKT27200 

CKT27210 

CHT27220 

CKT27230 

CNT27240 

CKT27250 

CNT27260 

CMT27270 
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TEST 5 IITER-RECORD GAP TEST 



253» 


itlFO 


0F82 


253E 


«300 


2B9A 


25«2 


UIFO 


0F82 


25U6 


«300 


2ttEll 


IStK 


K8F0 


3M6A 


25UE 


4230 


2531) 


2552 


i»1F0 


0FB2 


2556 


U300 


2I1F9 



2724 




BAL 


815,EBBDS 


2725 




B 


CHKEND 


2726 


WEB51 


BAL 


R15,ERRDS 


2727 




B 


PR0C51 


2728 


HPTER52 


LH 


R15,E0TFLG 


2729 




BNZ 


STNERR 


2730 




BAL 


B15,ERBDS 


2731 




B 


PRQC52 



CHT272eO 

•CST27290 

. CST27300 

GO OS C!1T27310 

VQT> C!1T27320 

C«T27330 

C«T273U0 

GO ON C^T^VSSO 



255* 


U8E0 


1831* 


255E 


2139 




2560 


4850 


184C 


256l» 


C550 


0009 


2568 


213U 




256JL 


11850 


1BE8 



:aT27370 
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TFST 6 CYCLIC REDUNDUNCT CHECK 

2733 * ****•**********************»*************«#******•*«************ 

273<( * * CNT27380 

, 2735 * T E S r 6 * CHT27390 

2736 * * C«T27aOO 

2737 * PURPOSE: * C'1T27<»10 

2738 * TO CHECK THE CYCLIC BEDUNDUKCY CHECK (CRC) CHASACTERS * CHT27U20 

2739 ♦ GENERATED AT THE END OF EACH SECORD WHITTES. ♦ CHT27I430 
27140 * * CKT274!t0 
27!S1 ♦ ASS'JSPTIOSS: » CnT27it50 
2742 * TEST HAD BEEN BUN WITHOUT DETECTING ANY FAILURE ♦ C!1T27't60 
27«3 * * C«T27«70 
27i|i» * DESIGN SPECIFICATION: * C«T27«80 
27«5 * IT HAS PRE-CALCULATED THAT THE CRC FOR A RECORD OF * CHT27!t90 
27i»6 ♦ 00-FF IS X'2929' AND FOR A RECORD OF FF-OO IS X'6A6A'. ♦ CMT27500 
2747 * ALTERNATE RECORDS OF THE ASQVE RECORDS ARE WRITTEM. * C!1T27510 
27l»8 * HARDWARE ADJUSTMENTS SHOULD BE MADE TO ENABLE THE CRC * CaT27520 
271*9 * BEING READ. THE RECORDS ARE READ AND THE CRC CHECKED. ♦ CMT27530 

2750 * ♦ CNT275<tO 

2751 * HOW TO RUN THE TEST * CHT27550 

2752 * HAKE SURE THAT THE DEVICE IS A 9 TRACK, 900 BPI • CHT27560 

2753 * HAGNETIC TAPE SYSTEH, WITH THE INTERFACE BOARD ON * CHT27570 
275<t * EXTENSION BOARD. SELECT TEST 6 AND SET CRC OPTION. * C;iT27580 

2755 * WHEN THE FILE IS GENERATED, THE HESSAGE: ♦ CKT27590 

2756 •• ADD CRC CAPACITOR AND EXECUTE. ♦ CKT27600 

2757 » WILL BE PRINTED, AND THE PROCESSOR HALTED. REFER * CST27610 

2758 * TO SECTION 6.2.U OF PUBLICATION 06-172A15, AND HAKE * CMT27620 

2759 * THE HARDWARE ADJUSTHENT. THE TEST WILL RESUME BY * CHT27630 

2760 * DEPRESSING EXE BUTTON. THE ADDED CAPACITOR BUST RE * CHT276tt0 

2761 * REMOVED AFTER THE TEST. » Cf!T27650 

2762 * * CHT27660 

2763 * IF OPTION CRC IS NOT SET 08 TRACK IS "iOT 9 OR DEVICE * CHT27670 
276a * IS NOT 1 THE TEST WILL ONLY PRINT ♦ C|i(T27680 

2765 * TEST 06 * CMT27690 

2766 * AND RETURN TO INPUT CO^iMAND NODE WITHOUT FURTHER « C('r27700 

2767 ♦ ACTION ♦ C.'1T27710 

2768 ♦ * CHT27720 

2769 * OPTIONS: . CMT27730 

2770 * TEST, LOO?, CONTIN, NOMSG, DEVADR, DV2ADR, 3ELCH, ♦ CKT277K0 

2771 * INTLEV, 10DE, TRACK, BRCFIL, DEVICE, CSC, ,^DCRC • C.1T27750 

2772 * WSTART,RSTART . CnT27760 

2773 * . CMT27770 
277i( ♦ EPRORS: * C?!T27780 

2775 * 00, 01, 02, Ott, 05, 06 ,10, 11, 12, 13, lU, 15, «8, * CNT27790 

2776 * 50. * CMT27800 

2777 * . CMT27810 

2778 * ****•**♦•♦***♦»****♦***♦**♦•*♦•*»***»♦**♦*****♦*»»*»**•»»♦»»»♦** C1T27920 

2779 * CMT27a30 

2780 TEST6 LH R5,DEVICE+6 SOO ^?I 1AG. TAPE? CflT278tiO 

2781 BNZS NOTEST NO - ABORT TEST CHT27850 

2782 LH R5,rHACK+6 CBT27860 

2783 CLHI R5,9 9 TRACK TAPE ? CHT27870 
278lt BNES NOTEST NO - ABORT TEST CMT27880 
2785 LH R5,SCHC+6 CBC OPTION SET ? CHT27a90 



COHHOK HJlGlfETIC TAPE TEST PROGRAK 06-172803*13 



PAGE 62 13:07:a5 08/16/79 



TEST 6 



CYCLIC REDDHDUNCY CHECK 



256E 


2136 




2570 


2«5F 




2572 


14050 


1700 


2576 


U300 


0E60 


25711 


C8it0 


2656 


257E 


«1F0 


2B7E 


2582 


C850 


0005 


2586 


140 50 


314614 


258A 


I»110 


2B36 


258E 


M1E0 


2F0r 


2592 


DOFO 


3628 


2596 


D1F0 


36211 


259A 


26F2 




259C 


DOFO 


362tt 


25A0 


D1F0 


3628 


25AU 


aiEO 


33FC 


25Ae 


UIEO 


2BB8 


25AC 


D010 


3F88 


25B0 


2«eo 




2532 


2H91 




25B« 


2l>At 




25B6 


C850 


00 D7 


253A 


D1F0 


3618 


25BE 


OAFS 




2 SCO 


D2 5F 


0000 


25CH 


I41F0 


126A 


25C8 


C180 


25BA 


25CC 


D110 


3F88 


25D0 


C8A0 


0001 


25Di» 


2191 




25D6 


2«81 




251)3 


01C0 


2C3A 


25DC 


U300 


2776 


25E0 


mco 


31BE 


25E"I 


DE60 


3I48B 


25E8 


UIEO 


33FC 


25EC 


DE60 


314814 


25F0 


ttlEO 


2FE8 


25F1I 


14300 


2B96 


25F8 


M8 30 


31466 


25FC 


0788 




25FE 


«1C0 


2CF14 


2602 


tt200 


0000 


2606 


9D65 




2608 


«210 


32A0 


260C 


C350 


0080 


2610 


1*230 


2638 


2614 


IIFO 


33FC 


2618 


1850 


314714 


26ie 


i»230 


261(1) 


2620 


14060 


31478 


262U 


<4860 


1810 


2628 


14330 


261414 



2786 


BNZS 


CHCTST 


2787 


IIOTEST LIS 


R5,15 


2788 


STH 


B5,(I0ERB 


2789 


B 


TSTEND 


2790 


CRCTST LHI 


Bl4,rEST63 


2791 


BAL 


Bm,TSTSUP 


2792 


TEST61 LHI 


E5,X'0005' 


2793 


STH 


R5,HASK 


279K 


BAL 


RH4,T3TIIHT 


2795 


BAL 


R114,BESST 


2796 


STK 


B15,RSAV32 


2797 


LH 


R15,BLIH+14 


2798 


AIS 


R15,2 


2799 


STH 


R15,HLIH+a 


2800 


LH 


ai5,RSAV32 


2801 


BAL 


RET,REWIHD 


2802 


BAL 


RIH.FSTEOF 


2803 


STH 


R1,RSAVE1 


2801 


LIS 


88,0 


2805 


LIS 


B9,1 


2806 


LIS 


H10,l4 


2807 


LHI 


R5,X'00D7' 


2808 


FILLWBUF LH 


B15,HLIB 


2809 


AHB 


R15,B8 


2810 


STB 


B5,0(R15) 


28 11 


BAL 


R15,TSTRBK 


2812 


BXLE 


R8,FILLHEyF 


2813 


LH 


R1,RSAVE1 


281U 


LHI 


RIO, 1 


2815 


LIS 


B9,1 


2816 


LIS 


R8,1 


2817 


BAL 


R12,HRTREC 


2818 


B 


WRTER6 


2819 


BAL 


R13,WAIT2 


2820 


OC 


DEV.WEOF 


2821 


BAL 


BET, BEHIND 


2822 


OC 


DE¥,READ 


2823 


BAL 


RHI,SEHS02 


282a 


B 


CHKEND1 


2825 


LH 


R3,SB1fTE 


2826 


XKB 


B8,R8 


2827 


BAL 


B12,8DREC 


2828 


HOP 




2829 


SSR 


DEV,STAT 


2830 


ETC 


I.HTDU 


2831 


THI 


STAT.X-eO' 


2832 


BNZ 


CRCZER 


2833 


SECDEV BAL 


RET,REaiKD 


78314 


LH 


B5,DEy2 


2835 


BSZ 


-£3162 


2836 


STH 


DE¥,DETO!(E 


2837 


LH 


DEV,DV2ADR+6 


2838 


BZ 


TESr52 



HO - ABORT TEST 



STARTINS ADDRESS SET UP FDR 

SECOND DEVICE TEST 

CHANGE MASK FOR CRCC=0 TEST 

TEST INITIALIZE 
SET BUFFER LIHITS 



REWIND TAPE 
WRITE El CHECK EOF 



5 BYTES PER 'ECORD 

RECORD WITH ODD NUH BYTES OF 

X'D7' HAS A CSCC = 



CHECK BREAK KEY 



NOW RECORDS 



WRITE A HEC3PD 

WAIT FOR >IHTN=1 

WRITE EOF 

REWIND TAPE 

READ PAST EOF 

EOF? 

MO - ABORT TEST 

YES 

READ A RECORD 



DU7 

ERR BIT SET? 

YES 

REWIND TAPE 

SECOND DEVICE FLAG SET? 

YES ~ GO TO 2;*;^ pnST Oc TESi 

SAVE 1ST DEVICE ADDRESS 

GET 2ND DEVICE ADDRESS 

ZERO - GOTO ?SD PART OF TEST 



CHT27900 
CHT27910 
CHT27920 
CHT27930 

CaT279UC 
CHT27950 
CHT27960 
CMT27970 
CHT27980 
CHT2799C 
CHT28000 
CHT28010 
CHT28020 
CMT28030 
CHT28040 
CHT28050 
C!1T23050 

cnT2eo7o 

C!1T2806P 
CflT28090 
CMT28100 
CnT28110 
CHT28120 
CHT28130 
CHT26m0 
CHT2B150 
CHT28160 
CHT28170 
CHT28180 
CHT28190 
CHT28200 
CNT28210 
CMT28220 
CHT28230 
CHT232140 
C!1T28250 
CHT2B260 
CHT28270 
CHT28280 
CflT28290 
CaT28 300 
CHT28310 
CHT28320 
CBT28330 
CHT283ttO 
CHT28350 
CMT28360 
CMT28370 
CHT28380 
^nii:S ^90 
CfT28aOO 
CHT28U10 
CNT281420 
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262C 


U060 


3474 


2630 


4060 


16D0 


2631* 


l»300 


2582 


2638 


C800 


3531 


263C 


UUO 


0F82 


2610 


4300 


2614 


26att 


U800 


3478 


26U8 


<4330 


2656 


264C 


a060 


1810 


2650 


0860 




2652 


«060 


16D0 


2656 


C8 50 


FFFF 


265A 


ao£o 


3464 


265E 


mEo 


2B36 


2662 


itlEO 


2F0E 


2666 


DOFO 


3628 


266A 


D1F0 


3624 


266E 


26F2 




2670 


DOFO 


3624 


267i» 


D1F0 


3628 


2678 


4850 


18F4 


267C 


42 30 


26C2 


2680 


41E0 


33FC 


2684 


ttlEO 


2BB8 


263 3 


M * cO 


2F38 


25ec 


4aA0 


1858 


2690 


2491 




2692 


2481 




2691 


4 ICO 


2C3A 


2698 


4300 


2776 


269C 


0755 




269E 


4050 


3470 


26A2 


41F0 


2C0A 


26A6 


C180 


2694 


26AA 


41 DO 


31BE 


26AE 


DE60 


348B 


26B2 


C8E0 


3512 


26B6 


41F0 


112A 


26BA 


C8E0 


080F 


26BE 


9154 




26C0 


9505 




26C2 


41E0 


33FC 


26C6 


DE60 


3486 


26CA 


41E0 


2FE8 


26CE 


4300 


2B96 


26D2 


4830 


3466 


26D6 


0788 




26D8 


4 ICO 


2CF4 


26DC 


4300 


2798 


26E0 


D080 


3F88 


26EII 


D1F0 


3620 


26E8 


0AF3 




26EA 


26F1 





2839 




STH 


DEy,DEV2 


2840 




STH 


DEV, EBRDEV 


2841 




B 


TEsrsi 


2842 


CRCZEB 


LHI 


S0,C*51' 


2343 




3AL 


315,ERRDS 


2844 




B 


SECDEV 


2845 


TEST62 


LH 


RO,DEVOME 


2846 




BZ 


TEST 63 


2847 




STH 


DEV,D¥2ADR+6 


2848 




IHB 


DEV,RO 


2849 




STH 


DEr,ERHDEV 


2850 


TEST63 


LHI 


a5,X'FFFF* 


28 51 




STH 


aS.flASK 


2852 




SAL 


814,TSTINIT 


2853 




BAL 


R14, RESET 


2854 




STH 


B15,HSAV32 


2855 




LM 


815,RLIM+4 


2856 




AIS 


R15,2 


2857 




STM 


R-15,RLIH+4 


2858 




Lf! 


R15,RSAV32 


2859 




LH 


R5,RDCRC+6 


2860 




BHZ 


PCOHLY 


2361 




BAL 


RET, REWIND 


2862 




BAL 


ai4,FSTE0F 


2S63 




BAL 


R14,8SET 


2864 




LH 


R10,RECFIL+6 


2865 




LIS 


R9,1 


2866 




LIS 


R8,1 


2867 


GENFIie 


BAL 


R12,MaTREC 


2868 




B 


WRTEB6 


2369 




XHR 


R5,R5 


2370 




STH 


R5,RTYCNT 


2371 


PR0C61 


BAL 


R 14, SWAP 


2872 




BXLE 


R8,GENFIL6 


2873 


EMDFIL 


BAL 


B13,HAIT2 


2874 




OC 


DEV,WEOF 


2875 




LHI 


B5,.'1SG05 


2376 




3AL 


?15, PRIST 


2877 




LHI 


R5,X'080F' 


2878 




SLHLS 


35,4 


2879 




EPSS 


H0,R5 


2380 


RCOSLY 


BAL 


RET, REWIND 


2881 




OC 


DBV,SKIPF 


2882 




BAL 


ai4,SEH302 


2383 




B 


CHKE-JDI 


2984 




LH 


R3,NBTTE 


2885 




XHR 


R8,R8 


2886 


RDFIie 


BAL 


R12,RDREC 


2887 




B 


RDESe 


2888 


PR0C62 


ST« 


R3,RSAVE1 


2889 


HB1 


LM 


ai5,RLI« 


2890 




AHR 


R15,H3 


2891 




AIS 


315,1 



SET 2ND DEVICE FLAG 

REPEAT CRCC=0 TEST OS 2KD DEV 
ERROR 51 



ABE 2 DEVICES BEISG TESTED? 
NO 

RESTORE 1ST DEV ADDRESS 

RESTORE MASK FOR REST OF TEST 

TEST INITIALIZE 
SET BUFFER LIMITS 



READ CSC ONLY ? 

REWIND TAPE 
WRITE t CHECK EOF 
SET WHITE BUFFER 
SET NU<!BER OF RECORDS 



WRITE A RECOPD 



REVERSE WRITE BUFFER 

WAIT FOR NflT^ =1 
WRITE EOF 

PfiINT .MESSAGE TO ADD 
CAPACITOR ON CONTROLLER 



HALT PROCESSOR 
REWIND TAPE 
READ PAST EOF 



NO EOF 



ABORT TEST 



READ A RECORD 



CNT23430 

01128440 

C.MT28450 

C.MT28 460 

CNT28470 

CMT28480 

CNT28490 

C>!T28500 

CNT28510 

C«T28520 

CI1T28530 

CHT28540 

CMT28550 

CHT28560 

CtlT28570 

CBT28580 

CMT28590 

CHT28600 

CWT28610 

CWT28620 

CI1T28630 

Cf1T28640 

CHT28650 

C»1T28660 

C«T28670 

C>!T28680 

CMT28690 

CHT28700 

CHT28710 

CI1T28720 

C«T28730 

CMT28740 

CMT28750 

CMT28760 

CMT28770 

CMT28780 

CHT2e790 

C!1T28800 

CHT28810 

CMT28820 

CMT28830 

C«T28840 

CMT28850 

CNT28860 

CflT28870 

C.MT28a80 

CMT28890 

CMT2e900 

CMT28910 

CNT2B920 

CHT23930 

CNT28940 

CNT28950 
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TEST 6 CYCLIC BEDUMDOHCI CHECK 



26EC 


neiF 


0000 


26F0 


D180 


3F88 


26F1I 


2305 




26F6 


D180 


3F88 


26FA 


HHti 


3A3B 


26FE 


HBtO 


3147* 


2702 


05U5 




2701 


11230 


27ltC 


2708 


C580 


0002 


270C 


238B 




270E 


C820 


3S3D 


2712 


2U04 




2714 


0811) 




2716 


H1F0 


1102 


271A 


C8E0 


3532 


27 IE 


HIFO 


112A 


2722 


taso 


3i»7C 


2726 


9i» = 6 




2728 


D2 50 


3lt7A 


272C 


D2E0 


3II7B 


2730 


U050 


3II7C 


273U 


C180 


26D8 


2738 


ceso 


2929 


273C 


BOEO 


3«7A 


27ao 


C8 50 


6A29 


27it« 


ttOSO 


3lt7C 


27148 


K300 


2B96 



274C 


C820 


3556 


2750 


240l» 




2752 


0815 




275* 


«1F0 


1102 


2758 


C820 


3563 


275C 


081U 




275E 


i»1F0 


1102 


2762 


C800 


3438 


2766 


HIFO 


0F6A 


276A 


08 50 


3544 


276E 


4 ICO 


3186 


2772 


4300 


2722 


2776 


48 FO 


346A 


277A 


2337 




277C 


4 ICO 


31BE 


2780 


DE60 


3483 


2784 


4300 


26AA 


2788 


41F0 


0F82 


27BC 


41E0 


304A 


2790 


4300 


2694 


279i» 


4300 


26A2 


2798 


9D65 




279* 


C350 


0060 



2892 LH 

2893 L!l 

2894 BS 

2895 HX4 L"( 

2896 LH 

2897 HY4 LH 

2898 CLHR 

2899 BNE 

2900 CLHI 

2901 BNLS 

2902 LHI 

2903 LIS 

2904 LHB 

2905 EAL 

2906 LHI 

2907 BAL 

2908 NOPRINT LH 

2909 EXBB 

2910 STB 

2911 STB 

2912 3TH 

2913 BXLE 

2914 ENDTST6 LHI 

2915 STH 

2916 LHI 

2917 STH 

2918 B 

2919 * 

2920 * 

2921 * 

2922 CRCE8B LHI 

2923 LIS 

2924 LHB 

2925 BAL 

2926 LHI 

2927 LHR 

2928 BAL 

2929 LHI 

2930 BAL 

2931 LHI 

2932 BAL 

2933 B 

2934 WBTEB6 LH 

2935 BZS 

2936 BAL 
29 37 OC 
29 38 B 

2939 8C0Vfi6 BAL 

2940 BAL 

2941 6 

2942 3 

2943 RDER6 SSR 

2944 TBI 



CHAB, 0(815) 

R8,RSAVE1 

Hr4 

R8,RSAVE1 

CHAS,aBUFF+1(R3) 

R5,CRCC 

CHAB,B5 

CBCEBR 

R8,2 

MOPRINT 

R2,HSG06+11 

SO, 4 

RI.CHAR 

R15,HEXASC 

R5,HSG06 

R15, PRINT 

R5,CRCCS 

R5,?5 

R5,CRCC 

H5,CRCC+1 

R5,CRCCS 

R8,RDFIL6 

R5,X'2929' 

R5,CRCC 

R5,X*6A29' 

R5,CRCCS 

CHKEND1 



CBC ERROR 



R2,«SG07+ie 

R0,4 

E1,R5 

R15,HEXASC 

H2,«SG07+31 

B1,CHAR 

R15,HEXASC 

R0,C'48' 

B15,ERRD 

H5,NSG07 

R13,BSGPRT 

H0P8IMT 

815,E0TFLG 

RC0VR6 

B13,HAIT2 

DEV.BKSPAC 

EHDFIL 

H15,ERRDS 

R14, RETRY 

GESFIL6 

PR0C61 

DE¥,STAT 

STAT,X'60' 



:;ET EXPECTED CRC CHAS 
COMPARE 

EQUAL - 

PRIVT FIRST TWO CRC CHARS. 

CONVERT TO ASCII CODE 



SET OTHER CRC CHAR 

REVERSE CRC CHARS 



GO TO SSAD NEXT RECORD 
RESTORE ORIGINAL CRC CHAR 



CRC NOT EQUAL 



PRINT BOTH CRC CHARS. 



ERROR 48 



EOT ? 

YES - 

BACKSPACE AND 
CLOSE UP FILE 

RETRY 5 TIHES 



EOF OR EOT? 



CHT28960 
CHT23970 
CIIT28980 
C!1T28990 
CBT29000 
CBT29010 
CHT29020 
CHT29030 
CHT29040 
CBT29050 
CSIT29060 
CRT29070 
C»T29080 
CHT29090 
CHT29100 
CHT29110 
CHT29120 
CfT29130 
^".129 140 
CBT29150 
CBT29160 
CBT29170 
CaT29180 
CKT29190 
CfiT29200 
CBT29210 
CBT29220 
CBT29230 
CHT29240 
CBT29250 
CBT29260 
CBT29270 
CBT29280 
CBT29290 
CflT29300 
CBT29310 
CBT29320 
CBT29330 
CBT29340 
CBT29350 
CBT29360 
CHT29 370 
CBT29380 
CHT29390 
CHT29400 
CHT29410 
CST29420 
CST29430 
CaT29440 
CST29450 
CHT29460 
CBT29470 
CBT29480 
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279E 4230 2738 
27A2 U1F0 0FB2 
27A6 U300 26E0 



23115 
291*6 
2947 



8NZ 
BAL 
B 



Esorsre 

aiS.ERBDS 
PS0C62 
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YES - END OF FILE 



€"129490 
C«T29500 
CH^T 23510 
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TEST 7 



OTIIITY TEST 



29U9 

2950 

2951 

2952 

2953 

295U 

2955 

2956 

2957 

2958 

2959 

2960 

2961 

2 962 

2963 

296« 

2965 

2966 

2967 

2968 

2969 

2970 

2971 

2972 

2973 

297U 

2975 

2976 

2977 

2978 

2979 

2980 

2981 

2982 

2983 

29814 

2985 

2986 

2987 

2988 

2989 

2990 

2991 

2992 

2993 

299« 

2995 

2996 

2997 

2998 
2999 
3000 
3001 



* 

T E S T 7 

# 

PURPOSE; * 
A UTILITY TEST TO ALLOW USEB TO T?::5T THE DEVICK 

II HIS OHN CHOSEN flETHOD. OPTIONS ARE PROVIDED * 

TO SELECT THE INDIVIDUAL FUNCTIONS AS SPECIEIED * 

IH APPENDIX 6 OF PUBLICATION 06-172A15. A SCOPE * 

LOOP OPTION IS ALSO PROVIDED. * 

ft 

THE BECOSD SIZE IN THIS TEST CAS 9^ VARIED BY THE 

OPTION BYTES. THE LIMITS ARE FROS 2 TO X'UOO'. IF * 

THE USER .(ISHES TO INCREASE THE UPPER LI«IT, HE «AY * 

DO 30 3Y INCREASING THE CONTENT OF LOCATION LABELLED * 

-X400". IT MUST BE NOTED THAT THE LOHKS LIMIT * 

CANNOT BE LESS THAN 2 AND THE HIGHER LIHIT «UST 

NOT BE CHANGED TO A VALUE HIGHS? THAN X'7FFF'. * 

ASSUHPTI0N3: * 

SASE AS IN TEST 0. * 

* 

DESIGN SPECIFICATION: * 

SEVERAL OPTIONS ABE PROVIDED TO THE USER TO SELECT ♦ 

THE DESIHED FUNCTIONS. THE SCOPE LOOP FUNCTIONS * 

SUPERCEDE ALL OTHER FUNCTIONS. IF SCOPE=0, THEN * 
READ ONLY HAS HIGHEST PRIORITY, FOLLOWED BY WRITE 
EOF COSTINOOUS. SCOPE LOOP IS EXECUTED CONTINUOUSLY 

WITHOUT ANY ERROR CHECKISG. SCOPE 1, 2 t 3 INVOLVES * 

WRITE OPERATION, AND ENSURES PROPER TERMINATION * 

BY WaiTING AN EOF. ALL SCOPES CAN RE STOPPED BY * 

BREAK OR DU. SCOPE 5 WILL SKIP F03UARD UNTIL EOT * 

AND THEN SKIP REVERSE TILL BOT. THIS WILL CONTINUE * 

UNTIL STOPPED BY THE USER. * 

WHEN 5C0PE=Q THE DEFAULT OPTIONS WILL GENERATE A * 

FILE. BACKSPACE OVER IT AND READ IT. THE BUFFERS * 

ARE COHPARED. IF BACKSPACE IS SOT SPECIFIED, A SKIP * 

FILE REVERSE IS PERFORMED BEFORE READING. BORE THAN * 

ONE FILES CAN BE SPECIFIED BY OPTION FILES. * 

THE WEOF CONTINUOUS OPERATION IS PERFOHHED IN THIS * 

TEST WITH NO ERROR CHECKING. , * 

SEVERAL SIMPLE SUBROUTINES ARE IMPLEMENTED TO * 
PERFORM DIFFERENT TAPE FUNCTIONS. SO ERROR CHECK 

IS DONE. THIS ALLOWS THE USER TO WRITE SHORT * 

UTILITY PROGRAMS: * 

WRITE EOF MASK * 

REWIND TAPE * 

SKIP EOF FORWARD * 

SKIP EOF REVERSE * 

BACKSPACE RECORD * 

WRITE RECORD BLOCK MODE * 

READ RECORD BLOCK NODE * 



BAL 


R1U,E0F 


BAL 


H14,RWND 


HAL 


Riiif SKEW 


BAL 


R14,SKRV 


BAL 


H1I»,BKSP 


BAL 


R1tt,WRTBLK 


BAL 


ai«,RDBLK 



CRT29530 

CMT295IJ0 

CHT29550 

CMT29560 

CMT29570 

CHT2958C 

CMT29590 

CMT29600 

CMT29610 

C»T2962C 

CMT29530 

CMT296UC 

CMT2965C 

CMT29560 

CHT29670 

CMT29690 

CMT2969C 

CNT29700 

CnT29710 

CMT29720 

CMT2973C 

CMT297U0 

CMT29 7 5 

CMT2976C 

CHT2977C 

CHT2978C 

CMT29790 

CMT29e00 

CHT29d10 

CnT29820 

CMT29830 

CMT29840 

CHT29850 

CnT29860 

CHT29870 

CNT298B0 

CMT29890 

CMT29900 

CMT29910 

CMT29920 

CHT29930 

CHT299«0 

CHT29950 

CMT29960 

CHT29970 

CMT29980 

C«1T2999Q 

CHT3000C 

CHT3001C 

CHT3002C 

CMT3003C 

CHT300I1C 

CMT30O5C 
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TEST 7 UTILITY TEST 

3002 * BAL Sm.RHSEL HEAD OR WRIT-^ REC SELCH MODE 



£. 1 nn 


uS Uu 


27B2 


27AE 


aiEo 


2B7E 


27B2 


«1E0 


2B36 


27B6 


l»1E0 


324C 


273A 


UBAO 


1864 


27BE 


27A1 




27C0 


l»OAO 


3466 


27CU 


2«21 




27C6 


4830 


1858 


27CA 


l»1E0 


2F0E 


27CE 


leEO 


3468 


27D2 


ato 


OOOF 


2706 


2333 




27D8 


aiEo 


2F38 


27DC 


UllO 


33FC 


27E0 


4850 


1918 


27E« 


4230 


28FA 


27E8 


0788 




27E* 


4850 


18AC 


27EE 


2135 




27F0 


4850 


18A0 


27Fi» 


4230 


284C 


27F8 


48 50 


18D0 


27FC 


4230 


2A70 


2300 


41E0 


307E 


28011 


41E0 


31BE 


2808 


41E0 


2BB3 


2aoc 


2411 




280E 


4 ICO 


2C3A 



3013 * 

3014 * OPTIONS: 
^OIS * TEST, LOOP, CONTIJf, S01S3, DEVADR, DV^ADH, SELCH, 

3016 * ISTLEV, MODE, TRACK, SECFIL, FILES, WRITE, READ, 

3017 * BKSPAC, HSOF, BYTES, SCOPE. 

3018 * MSTART,fiSTART 

3019 * 

3020 * ERRCBS: 



3021 * 

3022 » 47, 50. 



3023 

30 24 * ******♦**♦*•*****•******»*****•♦*»»»..*♦♦***♦,♦**,♦*»*,«»»».,,», 

3025 * 

3026 TEST7 LHI R4,TEST71 STARTING ADDRESS SET UP FJR 

3027 BAL B14,TSTSUP SECOND DEVICE TEST 

3028 TEST71 BAL R14,TSTINIT TEST INITIALIZE 

3029 BAL 813,i<AIT1 WAIT FOR N:1TS = 1 



3032 STH RIO, MBYTE 

3033 LIS S2,1 



CMT30060 



3003 * NOTE: ALL READ/WRITE RECORD SOUIIMES ASS'JME THAT * rMT3007C 

3004 ♦ R11 COHTAISS THE STARTING ADDRESS, AND R12 ♦ 

3005 * CONTAINS THE ENDING ADDRESS OF THE RPCOSD. * 

3006 ♦ ALSO, R«SEL ASSUMES THAT R2 CONTAINS THE * 

3007 * DEYICE COMMAND AND R3 CONTAINS THE SELCH * 

3008 • GO AND COMMAND. 

3009 ♦ » 

3011 * REFER TO TEST 0. SELECT THE APPROPRIATE OPTION • rMT30150 

3012 * AND RUN TEST 7. ♦ -nuuiau 



CMT 30080 
CMT30090 
CMT 30 100 
CMT30110 
CMT 30 120 
CMT3013C 
CMT3014C 



* CMT30160 

* CMT3017C 

* CBTSOiaO 

* CMT30190 

* CMT 30200 

* CaT30210 

* CHT30220 

* CMT30230 

* c IT in 7 u n 
00, 01, 02, 04, 05, 08, 10, 11, 12, 13, 14, 15, 46, * CMT30250 



CMT30260 
CMT 30270 
CMT 30280 
CMT 30290 
CMT30300 
CMT 303 10 
CMT30320 
CMT 30330 



3030 LH R10,NOBYTE+6 GET NO. RYTES PES RECORD CMT303ttR 

I'm ^.l^ ^:2'L „ ^'^^"C^ 3^ 1 CMT3035C 



CMT30350 
CKT3037C 



3034 LH H3,RECFIL + 6 GET RECORD Pi-R FILE CMT303eo 

3035 BAL R14, RESET SE3ET RUFFES LIMITS C»T30390 

3036 LH K14,DE ^..ijuj-*u 

3037 CLHI H14,X'F' 

3038 BES NXTM0D7 

3039 BAL R14,BSET SET WRITE BUFFER OO-FF 

3040 NXT-fOD? PAL RET, REWIND REWIND TAPE 

30t1 LH R5,SC0PE+6 SCOPE LOOP? CMT30450 

30''2 BNZ SCLJOP YES - GO TO SCOPn LOOP '^211°'!.^,° 

30'*3 XHR R8,R8 NO - RESET FILE COUNTiR 

3044 LH R5,OPWRT+6 WRITE OPTION? 

30'»5 BNZS CHKEOF rES - CHECK WEOF OPTION ci<'T30490 

30'*6 LH R5,0PBD + 6 >)0 - READ OPTION? CMT3050C 

30'*7 3NZ R0NLY7 YES - READ ONLY CMT30MC 

3048 CHKEOF LH R5,0PUEOF+5 WRITE EOF TO SUPERCEDE WRITE? CM^3n520 

^°^^ RNZ CO^SOF YK-, - WRITE EOF CONTINUOUSLY CMT3O530 

]°l° BAL R14,INDATA NO - ACO'JIRE DATA STRING CMT30'^40 

3051 BAL R13,WAIT2 WAIT FOR NM:N=1 CMT3055O 

3052 BAL R14,FSTE0F write £ CHECK EOF rMT30560 

3053 HRTFIL LIS R1,1 CMT30570 

3054 GENFIL7 BAL R12,HRTREC WRITE A RECORD C«T305H0 



CMT3040C 
CMT 30410 
CMT30420 
CMT 30430 
CMT3O440 



CMT 30460 

CMT30470 

MT30 4B0 
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TEST 7 



DTILITT TEST 



2812 


1300 


28BA 


281S 


C110 


280E 


281A 


tlEO 


31BE 


2«1E 


DE60 


3483 


2622 


1*850 


1888 


2826 


tt330 


2a9E 


282A 


41E0 


31BE 


282E 


Dt60 


3483 


2832 


2U11 




283U 


MUG 


2BEC 


2833 


C110 


2834 


283C 


«850 


13A0 


28«0 


l»330 


287E 


28'«<4 


itUO 


313E 


28a3 


DE60 


3483 


28UC 


mco 


318E 


2850 


DE60 


3484 


28514 


2411 




2856 


11 CO 


2CF4 


285A 


4300 


28DC 


285E 


U8f0 


18DC 


2362 


2333 




236H 


«1E0 


2E34 


2868 


4850 


1900 


286C 


2333 




2e6E 


41E0 


2F90 


2872 


Clio 


2856 


2876 


4 ICO 


31BE 


2a7A 


DE60 


3484 


287E 


2681 




2880 


4580 


1870 


2884 


2387 




2886 


4850 


18AC 


288A 


4230 


280C 


288E 


4300 


2854 


2892 


41 EO 


33FC 


2896 


41C0 


3026 


289A 


4300 


27DC 


289E 


48 50 


18A0 


23A2 


4330 


287E 


28*6 


4 ICO 


31BE 


2SAA 


DE60 


3487 


28AE 


41 DO 


31BE 


2832 


DF60 


3487 


28B6 


4300 


284C 



28B» 


4SE0 


346A 


28BE 


2135 




28C0 


41E0 


300E 


23C4 


4300 


2816 


2eC8 


4 ICO 


31BE 



3055 




B 


WaTES71 




3056 


KC0S7 


BXLE 


R1,SEMFIL7 


CONTIHUf: FOP A FILE 


3057 




BAL 


B13,WAIT? 




305R 




cc 


DEV,aEOF 




3059 




LH 


B5,3PBSP+6 


BACKSPACE OPTION? 


3060 




BZ 


N0BSP7 


NO - SKIP SACK If TO READ 


3061 




BAL 


R13,HAIT2 




3062 




OC 


DEVrBKSPAC 


BACKSPACE OVER EOF 


3063 




LIS 


R1,1 




3064 


BSFIL7 


BAL 


R14,BSPACE 


BACKSPACE A RECORD 


3065 




BXLE 


R1,BSFIL7 


CONTINUE F0=' A FILE 


3066 




LH 


R5,0PRD+6 


READ OPTION? 


3067 




BZ 


ENDFIL7 


NO - CHECK F03 lORS fILF.3 


3068 




BAL 


R13,WAIT2 




3069 




OC 


SEV.BKSPAC 


BACKSPACE OVER LEADING EOF 


3070 


R0NLY7 


BAL 


R13,WAIT2 


YES - 


3071 




OC 


DEV,READ 


READ PASS EOF 


3072 


SDFIL7 


LIS 


R1,1 




3073 


SEHnR7 


BAL 


B12,RDREC 


PEAD A REC03D 


3074 




B 


SDER71 




3075 




LH 


R5,CBPfiE+6 


C0KPA3E? 


3076 




BZS 


SOCOH 




3077 




BAL 


B14,C0HPAR 


YES - COMPARE DATA 


3078 


NOCOH 


LH 


R5,SDUHP+6 


D'J.IP? 


3079 




BZS 


8D0N 




3080 




BAL 


R1i»,DUHP 


TES - DUHP READ BUFFER 


3081 


BOON 


SXLE 


R1,RERDR7 


CONTINUE FO^ A FILE 


3082 




BAL 


R13,WAIT2 


MAIT FOR NfirN = 1 


3083 




OC 


DEV,READ 


HEAD PASS EOF 


3084 


ENDFIL7 


AIS 


R8,1 




3085 




CLH 


R8,FILRS+6 


ALL FILE" MRITTEN/READ? 


3086 




BNLS 


EKD7 




3087 




LH 


R5,0PWET+6 


NO - WRITE? 


3068 




BSZ 


WRTFIL 


YES - WRITE NEXT FILE 


308 9 




B 


RDFIL7 




3090 


EHD7 


BAL 


RET, REWIND 


REWIND TAPE 


3091 




BAL 


R13,TSTH0D 




3092 




B 


HXTH0D7 




3093 


S0BSP7 


LH 


B5,0PRD+6 


READ OPTION SET? 


3094 




BZ 


ENDFIL? 


MO - CHECK FOR MORE FILES 


3095 




BAL 


R13,»AIT2 




3096 




OC 


DEV.SKIPR 


YES - SKIP BACK OVER EOF 


3097 




BAL 


R13,WAIT2 


WAIT FOR SHTN=1 


3098 




OC 


DEV,SKIPR 


SKIP REVERSE ONE FILE 


3099 




B 


R0NLY7 


GO TO READ 


3100 


* 








3101 


* 


EBROR 


PROCEDURE 




3102 


* 








3103 


aSTERTI 


LH 


R14.E0TFLG 


EOT? 


3104 




BNZS 


WE0T7 




3105 




BAL 


R14,ERRMSG2 


NO - PRINT ERROR MESSAGE 


3106 




B 


WC0'J7 




3107 


WE0T7 


BAL 


R13,WAIT2 





Cr!T3059C 
CST30600 
CHT30610 
CHT 30620 
CHT 30630 
CHT 30640 
C»'T3065G 
CMT30660 
C»1T3067C 
CKT3068C 
CKT30690 
CNT30700 
C1T3071C 
C?1T3072C 
CMT30 73C 
C'1T3074C 
CMT3075C 
CHT3076C 
C,1T30 77C 
CMT3078 
CKT3079C 
CMT30MOO 
CHT 30810 
CHT3082C 
CHT30P3C 
CNT 30840 
C1T3085C 
CHT30860 
CHT 30870 
CHT 30880 
CHT3089C 
CHT 30900 
CHT 30910 
CMT 30920 
CST3093C 
CHT30940 
CMT30950 
CHT3096C 
CHT 30970 
CMT3098C 
CHT3099C 
CHT31000 
CnT31010 
CHT31020 
CaT31030 
CKT3104C 
CnT31050 
CHT31060 
CHT31070 
CHT3108C 
CHT31090 
CHT3110C 
CMT31110 
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28CC 


DE60 


31*8 3 


28D0 


into 


31BE 


2BD1» 


DE60 


348B 


28D8 


1300 


2892 


28DC 


9D65 




28DE 


C3?0 


OOHO 


28E2 


U230 


287E 


28E6 


C350 


0020 


28 E». 


11230 


2892 


28£E 


HIED 


300 E 


28F2 


*3Q0 


2868 


28F6 


H300 


1198 



28FA 


C5S0 


0005 


28FE 


U330 


2A92 


2902 


C550 


0001 


2906 


1380 


29E8 


290» 


dlEO 


307E 


290E 


4850 


1918 


2912 


2751 




291« 


0A55 




2916 


4800 


3U6E 


29 IS 


C500 


C001 


291E 


2332 




2920 


2651 




2922 


D3A5 


3«B6 


2926 


C8tiO 


2AFC 


292A 


lOMO 


16FA 


292E 


itlFO 


132E 


2932 


C8;o 


28F6 


2936 


U050 


196A 


293* 


ueto 


0A22 


293E 


955l( 




29«0 


aito 


32C2 


29<»tt 


088A 





29U6 


DOFO 


3528 


294A 


D1F0 


3618 


29aE 


08BF 




2950 


D1F0 


361C 


2954 


08CF 




2956 


D1F0 


3628 


295* 


9081 




295C 


1380 


2986 


2960 


11E0 


32E1 


296U 


9D65 




2966 


2221 




2968 


r350 


0020 



3108 
3109 
3110 
3111 
3112 
3113 
3114 
3115 
3115 
3117 
3118 
3119 
3120 
3121 
3122 
3123 
3124 
3125 
3126 
3127 
3128 
3129 
3130 
3131 
3132 
3133 
3134 
3135 
3136 
3137 
3138 
3139 
3140 
3141 
3142 
3143 
3144 
3145 
3146 
3147 
3143 
3149 
3150 
3151 
3152 
3153 
3154 
3155 
3156 
3157 
3158 
3159 
3160 



BDEB71 



SICHIHT 



SCLOOP 



BIKHOD 



ADVANCE 



WFILB 



OC 

BAL 

OC 

B 

SSB 

THI 

BHZ 

THI 

B"' 

BAL 

B 

B 



DEV,BKSPAC 

R13,HAIT2 

DEV,MEOF 

END7 

DEy,STAT 

STAT,X'40' 

EUDFIL7 

STAT,X'20' 

ESD7 

R14, ERHNSG2 

SOCOM 

RETOPStf 



BACKSPACE A RECORD 
WaiTE EOF 

EOT? 



YES 



SCOPE LOOPS: NO ERROR CHECK 



CLHI R5,5 

BE SKPCOH 

CLHI R5,4 

BNL RDCON 

BAL ai4,I»DATA 

LH R5,SC0PE+6 

SIS S5,1 

AHR" R5,R5 

LH ao,«ODfLG 

CLHI RQ,1 

BES BLKMOD 

AIS R5,1 

LB ai0,SgHASK(R5> 

LHI a4,L00PBRK 

STH a4,KBmT 

BAL ai5,K3RD 

LHI R5,3LCHIST 

STH R5,DE¥IST 

LH R4,PSM 

EPSB as, 34 

BAL R14,E0F 

LHB R8,ai0 



GET DATA PATTERN 



BLOCK MODE? 



SET KEYBOARD INTERRUPT 



ENABLE PSH INTERRUPT 



THIS ROUTINE HRITES A FILE WITH LEADING EOF. IF EOT 
IS DETECTED, IT REWINDS TAPE AND WRITES WHOLE FILE 
AGAIN. ROUTINE HFILE USES THE WS HODE AND ROUTINE 
WFIL3 USES 3ELCH 13DE 



STH 


815,RSAV32 


LN 


R15,WLIH 


LHR 


ai1,R15 


LH 


R15,WLIf1 + 4 


LHB 


R12,R15 


in 


ai5,RSAV32 


SRLS 


R8,1 


BNC 


WFIL3 


BAL 


R14,WBTBLK 


SSR 


DEV,STAT 


BFBS 


2,1 


THI 


STAT,X*20' 



SHIFT StO'JENCE HASK 

NO CARRY - BYPASS 

WRITE A RECORD (BLOCK RODE) 



EOT? 



CMT31120 
CMT31130 
CflT31140 
CMT31150 
CMT31160 
CKT31170 
CKT31 180 
CMT31190 
CriT312O0 
C(1T31210 
CfIT31220 
CBT31230 
CST31240 
CKT31250 
CHT31260 
C(1T31270 
CI1T31280 
CMT3129C 
C.I1T313O0 
CMT31310 
CHT31320 
C)1T31330 
CaT31340 
C«T31350 
CHT31360 
CST31370 
CHT31380 
C.1T31390 
CHT31400 
C.'1T31410 
C.>1T31420 
CMT31430 
C?!T3144G 
C«T31450 
CHT31460 
C«T3147C 
C!1T31480 
C?1T31490 
CMT31500 
C.1T31510 
CHT3152C 
CMT31530 
C«T31540 
C.1T31550 
CJ1T31560 
C.1T31570 
Cf1T31580 
CHT31590 
CtlT31600 
CHT3161C 
Cf1T31620 
CHT31630 
CMT31640 
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TEST 7 


UTii: 


296C 


233D 




296E 


itlEO 


32FC 


2972 


ItlEO 


32C2 


2976 


«1E0 


32CC 


297A 


C350 


3506 


297E 


ttlFO 


112A 


2982 


11300 


2B9* 


2986 


9081 




2988 


i»3eo 


29AC 


298C 


D320 


3a85 


2990 


D330 


3l»80 


299tt 


«810 


0A2B 


2998 


95il1 




29911 


l»1E0 


3306 


299E 


951i» 




29A0 


9D65 




29A2 


2221 




29Al» 


C3E0 


0020 


29A8 


«230 


296E 


29AC 


9081 




29AE 


«380 


291H4 


29B2 


mto 


32FC 



29B6 


DOFO 


3628 


29BA 


D1F0 


3620 


29BE 


08BF 




29C0 


D1F0 


3624 


29C4 


08CF 




29C6 


D1F0 


3628 


29CA 


9081 




29CC 


2383 




29CE 


l»1E0 


32F0 


29D2 


9081 




29DH 


U380 


2944 


29DB 


D320 


3484 


29DC 


D3 30 


3481 


29E0 


ftlEO 


3306 


29Ett 


4300 


2944 



29E8 



DOFO 3628 



3161 




BZS 


WFILS 


NO - GO OH 


CHT31650 


3162 


E0T7 


BAL 


R14,BKSP 


YES - BACKSPACE THE LAST HECOED 


CJ1T31660 


3163 




BAL 


B14,E0F 


WRITE EOF 


Cf'T31670 


316U 


PBEOT 


BAL 


R14,RH»D 


REWIND 


CnT31680 


3165 




LHI 


S5,MSG04 


EXIT TEST 


CKT31590 


3166 




BAL 


B15, PRIST 




CMT31700 


3167 




B 


CHKEHD 




C1T31710 


3168 


WFILS 


SRLS 


S8,1 


SHIFT SE3UENCE flASK 


CHT31720 


3169 




BNC 


BSFIL 


NO CARRY - BYPASS 


C>!T31730 


3170 




L8 


R2,WRITF 


DEVICE WRITE C0«1AND 


CI1T317M0 


3171 




LB 


R3,G0WRT 


SELCH WRITE C0S.1AND 


C'<T3175C 


3172 




LH 


H1.PSH2 


DISABLE INTFRRUPrS AT 


CJ!T3176C 


3173 




EPSB 


R4,R1 


PROCESSOR LEVEL 


C1T31770 


3174 




BAL 


R14,RWSEL 


WRITE A RECORD (SELCH MODE) 


C1T3178C 


317E 




EPSE 


R1,R4 


RESTORE P3H 


CKT31790 


3176 




SSH 


DEV,STAT 




C?1T3180C 


3177 




BFBS 


2,1 




C'!T3ieiC 


3178 




THI 


STAT,X'20' 


EOT? 


C'<T31320 


3179 




BNZ 


EOT 7 




CXT31830 


3180 


* 


THIS 


ROUTINE 3ACKSPACK 


A FILE BEYOND ITS LEADING 


C.'IT31840 


3181 


* 


EOF HARK 




C"T31850 


3182 


BSFTL 


SRLS 


Re,1 


SHIFT SEOUENCE 1ASK 


CST31860 


3183 




BKC 


ADVANCE 


NO CARRY - BYPASS 


CriT31870 


3184 




BAL 


R14,BKSP 


BACKSPACE A RECORD 


C1T3188 


3185 


* 


THIS 


ROUTINE READS A FILE WITH LEADING EOF. IF EOT 


C<fT31890 


3186 


* 


IS DETECTED, IT REHIKDS AND READS AGAIS 


CST31900 


3187 


* 


ROUTIME RFILB USES SB 


MODE AND RFILS USES SELCH «ODE 


C«1T31910 


3188 


* 








C«!T3192C 


3189 


RFILB 


STH 


R15,RSAV32 




CST31930 


3190 




LR 


R15.RLIH 




CST31940 


3191 




LHR 


R11,R15 




CPiT31950 


3192 




LH 


R15,RLIB+4 




CJ1T31960 


3193 




LHB 


R12,R15 




CHT31970 


3194 




L«l 


R15,BSAV32 




C!ir31980 


3195 




SRLS 


R8,1 


SHIFT SEOUEHCE HASK 


CST3199C 


3196 




BNCS 


BFILS 


NO CARRY - BYPASS 


CHT 32000 


3197 




BAL 


R14,RDBLK 


READ A RECORD (BLOCK MODE) 


C!1T32010 


3198 


RFILS 


SRLS 


R8,1 


SHIFT SEQUENCE SASK 


CST32020 


3199 




BNC 


ADVANCE 


NO CARRY - RESTART CYCLE 


C!1T32030 


3200 




LB 


H2,8EAD 


DEVICE READ COSRAND 


CBT32040 


3201 




LB 


R3,G0HD 


SELCH READ COflBASD 


CHT32050 


3202 




BAL 


R14,RWSEL 


READ A RECORD (SELCH MODE) 


CnT32060 


3203 




B 


ADVANCE 


RESTART CYCLE 


CHT32070 


3204 


* 








CST32080 


3205 


* 


READ 


ONLY SCOPE LOOP 




CST 32090 


3206 


* 


THIS 


ROUTINE READS RECORDS ON THE TAP& UNTIL AN 


CHT32100 


3207 


* 


EOF 15 DETECTED. THEN 


THE TEST WILL PAUSE WITH THE 


C«T32110 


3208 


* 


HESSAGE -EOF". IF CB IS ENTERED ON KETROARD, THE 


CI1T32120 


3209 


* 


TEST 


IS ABORTED. IF LF 


' IS ENTERED, THE TEST READS 


CHT32130 


3210 


* 


ON TO THE NEXT EOF. IF 


■ EOT IS DETECTED, THE TEST 


C!1T32140 


3211 


* 


IS ABORTED. 




C'1T32150 


3212 


* 








CUT 32160 


3213 


BDCOH 


STH 


R15,RSAV32 




C1T32170 
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TEST 7 UTILITI TEST 

321«1 LH H15,8LI!1 C>1T32180 

3215 IHR R11,R15 AHIaIo 

3216 Lt S15,RLII!+'. rw^,5nr 

3217 LHR R12.R15 C^tHIVo 

3218 L« fi15,RSAV32 r!^T1^?7n 

3219 BAL R13,SENI1TN CHECK FOR SHTN CHT^tttn 

3220 OC DEV,READ AAllln 

3221 LH R5,.H0DFLG ^MT3^?^n 
5222 CLHI R5,2 BODE 2? C1T3?^fin 
3223 BE RDCOHS TES - SELCH MODE CMT32270 
322"» HDCOHB BAL Rn,RDBLK READ RECORD BLOCK NODE CHT32280 

3225 SSB DE¥,STAT -MT3??qn 

3226 BTC 1,»rDU C^T3230n 

3227 BFBS 2,3 rnrlll^r 

3228 THI STAr,X'20' EOT? rullUlc 

3229 BNZ PRE3T YRS - END TEST CMT32?30 

3230 THI STAr.X'«0- EOF? c"323«Q 

3231 BZS RDCONB NO - CONTIVIR ^MT32350 

3232 PAUSED LHI R5,?!SG0<.A CNT^^^^n 

3233 BAL R15.PSINT rM?^7^7n 
323« PAUSE1 BAL R15,G£TCHR SET A CHARACTER CMT32380 

3235 CLHI CHAR,X-OD' CR? rwT^9^on 

3236 BE OPTIN trj - EXIT AtIIUo 

3237 CLHI CHAR.X'O*' re, :^I^^:^°° 

lill «^ Rt^"" ^KS - CONTINUE READ CHTi2l!20 

iiln on^^„o ?n P*USE1 ELSE GET ANOTHER CHARACTER Cf!T32«30 

321*0 RDCONS LB R2,READ DEVICE HEAD COMAND C«T324«0 

32'»1 -LB R3,G0RD SELCH READ C0«>1A.ND CMT32U50 

32f2 BAL S1i»,RHSEL READ RECORD SELCH XODE CMT32a60 

32«3 S3R DE¥,STAT r^T^7^7n 

32"'* BTC UMTDU r'T32«80 

3245 BFBS 2,3 CMT^7UQn 

32'»6 THI STAT,X-20' KOT? C^TI^^On 

3247 BNZ PBEOT TES - EXIT CMT3251C 

32«8 THI STAT.X'UO- EOF? r„^^^,n 

3219 BZ RDCONS '^141,?. 

111° . ' ^^'^^^^ crr32lac 

3252 . WRTIE EOF SCOPE LODP ^??^'^^^S 

3250 CONEOF 3AL R1«,E0F «RITE EOF cllllU^r^ 

3255 SSR DEV.STAT CK^^^^Qn 

3255 BTC 1,!1TD0 CMT32590 

3257 BFBS 2.3 EM? IV^llTlO 

3258 THI STAr,X'20' YES - EDT ? ^MTlPfi'o 

3259 BZS CONEOF r^llihr, 
^"° BAL RU.RWND EOT - REWIND TAPE C-Ti^UO 

3261 LHI R5,.1SG0a rHT^Jfi^r 

3262 BAL R15, PRINT r^T^^^sn 

3263 B OPTIN C.1T32660 

325'« * THIS R0UTI8E PERFOR!) SKIP OPERATIONS CONTISOOUSLY rH^^JfiRr 

7A9J Uiro ^^r,,. IIA I. . " REVERSES DIRECTION IJPOfi DETECTION OF ET CMT32690 

2A92 aiDO 32D6 3266 SKPCON BAL R13,3EN«TN C«T3270C 



29EC 


D1F0 


3620 


29F0 


08PF 




29F2 


D1F0 


3621* 


29F6 


C8CF 




29F3 


DIED 


3628 


29FC 


41 CO 


32D6 


2A00 


DF60 


31*81* 


2A0I» 


48 50 


3l»6E 


2S0S 


C5S0 


0002 


2A0C 


i»330 


2AI»8 


2A10 


UIEO 


32F0 


2A1tt 


9D65 




2A16 


1*210 


32A0 


2A1A 


2223 




2A1C 


C350 


0020 


2A20 


11230 


2976 


2A2'» 


C350 


OOUO 


2A28 


223C 




2A2A 


C850 


350C 


2A2B 


1I1F0 


112A 


2A32 


«1F0 


121C 


2A36 


C5H0 


OOOD 


2A3A 


U330 


0AE6 


2A3E 


csao 


OOOA 


2Aa2 


U330 


29E8 


2A46 


220A 




2Al»8 


D320 


31*84 


2Ai»C 


D330 


3U8 1 


2A50 


UIEO 


3306 


2A51 


9C65 




2A56 


1*210 


32A0 


2A5A 


2223 




2A5C 


C350 


0020 


2A60 


1*230 


2976 


2A64 


C3 50 


001*0 


2A68 


1*330 


2Al*8 


2A6C 


1*300 


2A2A 



2A70 


l*1E0 


32C2 


2A7tt 


9D65 




2A76 


4210 


32A0 


2A7A 


2223 




2A7C 


C350 


0020 


2A80 


2238 




2Aa2 


41F0 


32CC 


2A86 


C850 


3506 


2A8A 


41F0 


112A 


2A8E 


4300 


QAE6 
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TEST 7 UTIIITI TEST 



2*96 


DE60 


3Ke« 


2A9A 


<»1E0 


33DE 


2A9E 


9D65 




2AA0 


11210 


32A0 


2AAit 


i4lF0 


126A 


2AA8 


C350 


0022 


2AAC 


2237 




2AAE 


C350 


0020 


2AS2 


223C 




2Aau 


DE60 


347F 


2AR8 


U1E0 


33E8 


2ASC 


mco 


32D6 


2AC0 


9D65 




2AC2 


U210 


32A0 


2AC6 


C350 


0020 


2ACA 


2239 




2ACC 


DE60 


3l»7F 


2AD0 


9D65 




2AD2 


C3E0 


0020 


2AD6 


tt230 


2A92 


2ADA 


1*1 EO 


33E8 


2ADE 


9D65 




2AE0 


a210 


32A0 


2AEa 


l»1F0 


126A 


2AEe 


C3E0 


0022 


2AEC 


2237 




2AEE 


C350 


0020 


2AF2 


223C 




2AFli 


DE60 


3«7F 


2AF8 


l»300 


2A92 



2AFC 


9B2H 




2AFE 


CI»M0 


007F 


2B02 


l»230 


11198 


2306 


C8M0 


1l»9 2 


230A 


<t0«0 


16FA 


230E 


C8 20 


OOFO 


2B12 


9512 




2BHI 


l»850 


3'»6E 


2Bia 


C550 


0002 


2B1C 


2135 




2B1E 


9D75 




2820 


2081 




2B22 


DE70 


3i»7E 


2B26 


DE60 


3H7F 


2B2A 


HIEO 


32C2 


232E 


H1E0 


32CC 


2B32 


iJ30G 


0AE6 



3267 


OC 


DEY.READ 


3268 SKPC0N1 BAL 


Ria.SKFH 


3269 


SSR 


DEV,STAT 


3270 


BTC 


1,I1TDU 


3271 


BAL 


RIS.TSTBRK 


3272 


THI 


STAT,X'22' 


3273 


BZS 


SKPCOKI+I 


327a 


THI 


STAr,X'20' 


3275 


BZS 


SKPC0N1 


3276 


OC 


DEV, CLEAR 


3277 BEVBS BAL 


R1i»,SKBV 


3278 


3AL 


R13,SEMHTN 


3279 


SS8 


DE¥,3TAT 


3290 


BTC 


T,f.TUn 


32fl1 


THI 


STAT,X'20' 


3282 


BZS 


REVR5 


3233 


OC 


DEV, CLEAR 


3281* 


S3 3 


DEV,STAT 


3285 


THI 


STAr,X'20' 


3286 


BSZ 


SKPCON 


3287 REVKS1 BAL 


aitt,SKRV 


3289 


SSP 


DEV, STAT 


3289 


BTC 


l.ftrDU 


3290 


BAL 


RIS.TSTBRK 


3291 


THI 


STAT,X'22' 


3292 


BZS 


REVSS1+U 


3293 


THI 


STAr,X'20' 


329a 


BZS 


REVBS1 


3295 


CC 


DEV, CLEAR 


3296 


B 


SKPCON 


3297 * 






3298 * 


THIS 


SECTION CHt( 


3299 * 


BREAK 


• 


3 300 * 






3301 LOOPRRK RDE 


R2,H4 


3302 


SHI 


R«,X'7F' 


3303 


BUZ 


RETOPSW 


330U 


IHI 


Ri»,!IOBRK 


3305 


STH 


Bl|,KBINT 


3306 


LHI 


R2,X*F0' 


3307 


EPSB 


R1,R2 


330e 


LH 


B5,H0DFLG 


3309 


CLHI 


85,2 


3310 


B8ES 


CLBDEV 


3311 


SSB 


SELCH,STAT 


3312 


BTB3 


8,1 


3313 


OC 


SELCH,STOP 


3311 CLBDEV OC 


DEV, CLEAR 


3315 


BAL 


R1«,E0F 


3316 


BAL 


R1I4,RWMD 


3317 


B 


OPTIH 



READ PASS FIRST EOF 
SKIP FORWARD 



SOH OR EOT? 

EOT? 

YES - CLEAR DEVICE 
SKIP REVERSE 
'liAIT FOR N.1TN = 1 



EOT? 

HO - SKIP REVERSE AGAIS 

YES - CLEAR DEVICE 

30T? 

IE3 - GO SKIP FORWARD 

CONTINUE SKIP REVERSE 



EOK OH EOT? 
30T? 

GO SKIP FORWARD 
; KEYBOARD CHARACTER IS 

GET THE CHARACTER 

NO - C08TINUE LOOP 

YES - RESTORE BRK CHECK ROUTINE 

IK ETPE 

RESTORE REG. SET 

10DE 2? 



STOP SELCH 
CLEAR DEVICE 
WRITE EOF 
REWIND 



CnT32710 

CMT3272C 

CKT3273C 

CHT327UC 

CHT3275C 

CnT3276C 

CMT3277C 

C.1T3273 

C1T3279C 

C(1T3280C 

C.1T 32510 

C.1T32a2C 

C.1T32930 

CJ1I32RUC. 

CHT32f 5C 

CHT 32660 

CMT 32370 

C''T32>jeC 

CKT32690 

C«T3290C 

CMT 329 1C 

C«T3292C 

CMT32930 

CflT329«G 

CHT32950 

CMT32S5C 

CaT3297C 

CMT329S0 

CHT3299C 

CHT33000 

CKT3301C 

CnT3302C 

C«T 33030 

CnT330iiO 

CMT33C5C 

CBT3306C 

CHT3307C 

CHT3308C 

CnT33090 

CBT3310C 

CNT3311C 

CJ1T3312C 

CHT33130 

C«T331*0 

CHT3315C 

CHT33160 

CI1T33170 

CST33ieC 

CHT3313C 

CNT3320C 

C.1T3321C 
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2335 


DE60 


348A 


2B3A 


D350 


3465 


2B3E 


U050 


3466 


2SU2 


U1D0 


30 1C 


291*6 


0755 




2348 


40 50 


196» 


231C 


40 50 


196C 


2B50 


40 50 


346A 


235l» 


DOFO 


3628 


2358 


D1F0 


362C 


2B5C 


DOFO 


3618 


2B60 


4AF0 


3466 


2B6« 


DOFO 


361C 


2B68 


D1F0 


3630 


2B6C 


DOFO 


3620 


2370 


4AF0 


3466 


25714 


nQcn 


3£ 'til 


2B78 


D1F0 


3628 


237C 


030E 





2?7E 


40 40 


3472 


2382 


4870 


181C 


233 5 


4860 


1304 


233* 


4060 


16D0 


2B3E 


0755 




2390 


4050 


3474 


2394 


030E 





3319 
3320 
3321 
3322 
3323 
3324 
3325 
3326 
3327 
3328 
3329 
3330 
3331 
3332 
3333 
3334 
3335 
3336 
3337 
3338 
3339 
3340 
3341 
3342 
3 J** 3 

3344 
3345 

3346 
3347 
3348 
3349 
33 50 
3351 
3352 
3353 
3354 
3355 
3356 
3357 
3358 
3359 
3350 
3361 
3362 
3363 
3364 
3365 
3366 
3367 
3368 
3369 
3370 
3371 



***********»♦**•*•♦•*****♦*****♦***♦****»•*»*»*»»♦»»»»««♦*,,», 

SUBROUTINE TSTINIT 

THIS 30UTIKE SETS UP THE TEST 50DE ASD APPSQPRIATE 
HEMORT LOCATIONS FOR EACH TEST .lOD'JLE. 
CALLING SEQUENCE; 
BAL 314, TSTINIT 



TSTINIT 



TSLONGA 



TSB 



TSLCNG3 



TSA 



CC 

LB 

STH 

BAL 

XHR 

STH 

STH 

STH 

STN 

LN 

STM 

AH 

STH 

Lf 

ST« 

AH 

5Tn 

L« 

BR 



DEVjDISAR"! 

a5,SASK+1 

a5,!i3rTE 

813,5EraOD 

35, '5 

S5,DEyiNT 

R5,DEVINT+2 

R5,EJTFLG 

SI 5,SSAV32 

815, WADDRS 

R15,WLI1 

R15,t3YTE 

R15,WLIW+4 

R15,SADDRS 

315,?LI« 

RIS.NBYTE 

S15,?LI?l*-4 

315,SSAV32 

R14 



SET nu?i3f;r of 3rrES per record 



CLEAR INTER8UPT TABLE 



STORE THE STARTIHG ADDRESS OF .JStTE 
ENDIS'G ADDRESS OF WRITE BUFFER 



t****************** 



******••♦***♦»♦*«***•*»♦♦***♦***»«♦*«***.* ♦til 
SUBROUTINE TSTSU? 

THIS ROUTINE SETS UP THE 3ELCH ADDRK3.5 AMD DEVICE 

ADDRESS or THE FIRST DEVICE TO 3£ TESTED. 

THIS ROUTINE SHOULD NOT 3E CALLED IF TESTING IS TT 

BE DOSE ON THE SECOND DEVICE. 

RETURN OS R14. 



**♦*•*****•*•*♦••*»*«**♦*») 



*********«4 



'********♦********♦*»*•*** 



TSTSUP STH R4,VXTDEV 

LH 3EL:H,3ELADR+6 

LH DE¥,DEVAD3+6 

STH DEV,EHaDEV 

XHR R5,?5 

STH a5,2EV2 

BB R14 



GET oELCH ADDRESj 
^ST DEVICE ATDPFSS 

RESET SECOND DEVICE FLAG 



* 

SUBROUTINE CHKEND £ CHKEND1 

THIS ROUTINE CHECKS IF A SECOND DEVICE IS TO HE ♦ 

TESTED. IF NOT, IT HILL GO TO TSTEND. 

IF A SECOND DEVICE IS TO BE TESTED, IT PICKS UP 

ITS ADDRESS, SET THE FLAG UND BtfAVCH TO \ PRESET * 

ADDRESS AT LOCATION NXTDEV. 



C1T3323C 

C.1T3324C 

CHT33250 

CHT33260 

C'»T33270 

CXT3328C 

C.1T3329C 

C?iT33300 

CMT33310 

C1T33320 

CHT33330 

C1T3334C 

C1T33350 

C«T33360 

C1T3337C 

C!1T33380 

CRT33390 

C!1T33U00 

C.«1T33410 

C!1T33420 

CHT33430 

C1T3344C 

CMT33U50 

C«T33460 

C«T3347C 

CMT33480 

CMT33490 

CMT33500 

CMT 33 510 

C1T33520 

C.1T33E30 

C.1T3354C 

C.'<T33550 

CMT33560 

Cf1T33570 

C>(133590 

CKT3359C 

C.1T335CI0 

CMT33fi1C 

C'«T33e2C 

C1T33630 

C!«T33540 

Ci1T3365C 

CMT33660 

C'<T3367C 

C.1T33€8C 

C1T336^0 

C:1T33700 

C1T33710 

CMT33720 

C.T 33130 

CKT33740 

C>;T33750 
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SDBEOnTIHES 



2B96 


mFo 


33FC 


2B9A 


UflSO 


3(J7l» 


2B9E 


U230 


0E60 


2BA2 


U860 


1810 


2BA6 


1330 


0E60 


2BAA 


U8F0 


3U72 


2BAE 


U060 


3474 


2332 


1*060 


16D0 


2H36 


030F 





2BB3 


tOEO 


3E8 8 


2BBC 


07E5 




2BBE 


4050 


346A 


2BC2 


DE60 


348B 


2BC6 


42C0 


0000 


2BCA 


9D65 




2BCC 


C350 


0010 


2BD0 


2138 




2SD2 


41E0 


2FE2 


2BD6 


M300 


2B96 


2BDA 


48E0 


3E88 


2BDE 


030E 




2BE0 


C800 


3530 


2BE0 


41F0 


0F82 


2BE6 


4300 


0AE6 



♦ CHT33760 
jj,^ ^,.„.,-, -..^ RET, REWIND HEifKID TAPE CHT33770 

3374 CHKEND LH H5,DEV2 SECOHD DKVICE FLAG SET? ^""H®" 

3375 BNZ TSTEND TES - EMI) TEST CHT33790 

3376 LH DEV,T)V2ADS+6 GET 2ND DEVICE ADDRESS C«IT3380O 

3377 BZ TSTEND ZEHG - END T'i:ST C«T33aiO 

3378 LH R15,NXTDEV TEST AGAIN ^!!"^a^n 

3379 STH DE¥,DE¥2 SET 2ND DEVICE FLAG CMT33830 
DE¥,ERRDEV C?!T33840 

CHT33350 

• CI1T3386C 
****»•»♦*♦***♦♦*••»*♦****•»*•**•***♦*♦***'********************** CUT 3 38 70 



3372 

3373 CHKEND1 BAL 



3380 STH 

3381 BR ai5 



3398 * **** 

3399 * 

3400 FSTEOF 
3401 

3402 

3403 

3404 

3405 

3406 

3407 

3403 

3409 

3410 

3411 

3412 WBTPT 

3413 

3414 

3415 

3416 



STH 


S14,SAyERTN 


XHR 


H5,R5 


STH 


R5,E0TFLG 


OC 


DEV,i(EOF 


NOP 




SSR 


DEV.STAT 


THI 


STAT,X'10' 


BNZS 


ifRTPT 


BAL 


314,3EM301 


B 


CHKESD1 


LH 


R14,SAVEBT» 


BR 


R14 


LHI 


RO,C'50' 


BAL 


K15,ERHDS 


B 


OPTIN 



CMT338BG 
C(«T3389C 



3382 
3383 

3384 * 

3385 * SUBROUTINE FSTEOF ^„„„,„r 
33,5 . THIS ROUTINE HRITES AN EO- AND CHECKS IT. IF NSTN * CnT3390C 

3387 * DOES NOT DROP WITHIN ONE INSTP'JCTION TIME AFTER THE * CHT33910 

3388 * O0TPU7 COVIAND, ERROR SO IS LOGGED AND THE TEST • C?1T3392C 
33B9 ♦ ABORTED ASSUMING THAT THE TAPE DRlYE 13 IN THE WRITE • CHT33930 

3390 » PROTECT !13DE. * CHT33940 

3391 . IF NO EOF IS DETECTED AFTER A TIMED WAITING PERIOD, * CNT33950 

3392 * THIS TEST IS ABORTED. * ^"I"'*° 

3393 ♦ THIS ROUTINE IS J3UALLY CALLED AFTER A REJISD, AND » ^!ll""n 
339,, 

3395 
3396 



IT RESETS THE EOT FLAG. * CMT33980 

CALLING SEQUENCE: * rS?34000 

BAL ai4, FSTEOF * rS^^Sni? 

3397 * ERROR" 50 CBTJ40lt 

.»***il. *»*»****»********»•**♦**••********•**********»**** Cf^T340 2 

• CHr3403C 

SAVE RETURN ADDRESS CHT34040 

RESET EOT FLAG CHT3U050 

CMT3406C 
WRITE EOF CHT3407C 

WAIT FOR HMTN=0 CMT34080 

CnT3409C 
8BTH=0? CHT34100 

NO - WRITE PROTECT ERROR CMT34110 

CHECK EOF CHT34120 

HO EOF - ABORT TEST CST34130 

CHT34140 

CMT34150 

ERROR 50 C!1T34160 

CST 34170 

CKT 34180 

CHT34190 

*«*♦*»«***•****♦*»***♦*♦♦******♦*♦****•*********'*************** CMT34 20 

3417 * SUBROUTINE BSPACE * ^!!Iol!^,n 

3m8 * THIS HOOTISE BACKSPACES A RECORD. IF ERROR STATUS * CKT34220 

3m9 . IS SENSED, AN ERROR MESSAGE IS PRINTED. * CMT3423C 

3420 * RETURNS ON ai4 * S1lit.lt2. 

3421 * ERROR: 08 ^ ^ »***»******.,. I 

3422 * *****•*••••■"**•*********■"'----=----*-**-*'******************* 

2BEC 41E0 31BE 3424 BSPACE BAL R13,WAIT2 ^AIT FOR N«TN=1 CMT34280 



CMT34250 
CMT3426Q 
CHT34270 
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2BF0 


DE60 


348 3 


2BFU 


UUO 


320C 


2BF8 


9D65 




2BFA 


C350 


ooco 


2BFE 


033E 




2C00 


C800 


3038 


2C0<( 


mFo 


0Fe2 


2C08 


03CE 





2C0A 


07EB 




2C0C 


1*800 


3II66 


2C10 


DOFO 


3628 


2C1U 


D1F0 


3618 


2C18 


OABF 




2C1A 


OACF 




2C1C 


D1F0 


3628 


2C20 


D3<IB 


0000 


2C2I» 


D35C 


0000 


2C23 


D2"4C 


0000 


2C2C 


D25B 


0000 


2C30 


2631 




2C32 


27C1 




2C3!» 


OS EC 




2C36 


208B 




2C38 


03CE 





2C3A 


mio 


31BE 


2C3E 


9D65 




2C«0 


C350 


0020 


2CIH« 


4230 


2C78 


2CII8 


48 50 


346E 


2CUC 


C5£0 


0001 



3425 
3426 
3427 
3428 
3429 
3430 
3431 
3432 
3433 
3434 
3435 
3436 
3437 
3438 
3439 
3440 
3441 
3442 
3443 
3444 
3445 
3446 
3447 
3448 
3449 
3450 
3451 
3452 
3453 
3454 
3455 
3456 
3457 
3458 
3459 
3450 
3461 
3462 
3463 
3464 
3465 
3466 
3487 
3468 
3469 
3470 
3471 
3472 
3473 
3474 
3475 
3476 
3477 



oc 


DEV,3KSPAC 


BACKSPACE 


BAL 


B13,WAIT3 


WAIT FOR E0»=1 


SSR 


DEV,STAT 




THI 


STAT,X*C0' 


ERR OR EOF Si^T? 


BZB 


R14 


HO - SEr^jas 


LHI 


R0,C'08' 


STATUS ^--JRO' - 08 


BAL 


R15,ERRDS 




BB 


R14 





<«»«««! 



******************************* 



t***************< 



* SUBBOOTIHE SWAP 

* THIS ROailME REVERSES THE WRITE BIJFFEH 

* CALLIHG SEaUEMCE: 

* BAL R14,3»AP 



*************4 



************* 



SWAP 



SWP1 



XHR 

LH 

ST« 

L« 

AHR 

AHR 

LM 

LB 

LB 

STB 

STB 

MS 

SIS 

CLHR 

BLS 

3R 



R11,R11 

ai2, KBYTE 

R15,RSAy32 

R15,WLIN 

R11,R15 

R12,R15 

R15,SSA¥32 

CHAR, 0(811) 

STAT-0(B12) 

CHAB,0(R12) 

STAT,0(R11) 

R11,1 

3 12,1 

R11,R12 

SWP1 

ft14 



INCREASE LOWER K.fD POINTER 
DECREASE UPPEa KND POINTER 
POINTERS MEET OR CROSS? 
NO - COSTIS'JE 
YES - EXIT 



**•**•***•***•********•****•»•*♦*•»•******•«*»*♦**«****♦**»**.»< 

SUBROUTINE WBTBEC ' 

THIS ROUTINE WRITES A RECORD ONTO THE 1AG. TAPE ' 

IT OPERATES EITHER OS rSELCH MODE 0? ??/WB MODE. < 

THE STARTING ADDRESS OF RECORD TO ?E WRITTEN IS ^ 

STORED AT LOCATION WLIM, AND THE "sni.'IG ADDRESS ' 

AT LOCATION WLIB+2. IF NO EH80.-i OC:^JPi DUHING THE < 

TRANSFER. IT WILL RETURN ON 4(-i12). EPROR PETURN < 

IS AT 0(R12) « 

CALLING SEQUENCE: • 

BAL R12,WHTREC < 

B ERROR RETUSN HERE ON ERROR ' 
NEXT INSTRUCTION RETURN HESE OS NORMAL COfiPLETION ' 



^**************************************************t** 



******* 



WHTPEC 



BAL 


R13,WAIT2 


SSR 


DEV.STAT 


THI 


3TAT,X'20' 


BNZ 


HEOT 


LH 


R5,M0DFLG 



CLHI R5,1 



WAIT FOR Ni<TN=1 

EOT? 

YES - SET tOTFLAC 

WHICH MODE? 



CMT34290 
CMT 34300 
C.MT34310 
CMT34320 
CMT34330 
CrtT3434C 
CMT34350 
CMT34360 
CMT 34370 
CMT34380 
C!1T3a390 
CMT34400 
CHT34U10 
CMT34420 
CMT34430 
C'<T34440 
CMT34450 
CHT34460 
CMT34470 
CMT34480 
CMT 34490 
CMT34500 
CMT34510 
r^iiT 3U52G 
CMT34530 
CMT34E4C 
C,MT34550 
CMT34560 
CMT34570 
CMT34530 
CMT3459C 
CMT34600 
CMT34<^10 
CMT34e20 
CMT3463C 
CMT 34640 
CMT3465C 
CMT 34660 
C,MT34670 
CMT34680 
CMT3469C 
CMT34700 
CKT3471C 
CMT3472C 
CMT34730 
CMT3474C 
CMT3475C 
CMT34760 
CMT34770 
CaT34780 
CMT 34790 
C.MT34800 
CMT34810 
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2C50 



«330 2C9« 



2054 


D010 


3F08 


2C58 


C810 


3618 


2C5C 


D320 


3485 


2C60 


D330 


3480 


2C6a 


C800 


3134 


2C68 


CBKO 


3130 


2C6C 


IIEO 


2D62 


2C70 


U300 


2C7E 


2C7lt 


1*300 


2C8C 


2C78 


40 50 


346fl 


2C7C 


030C 




2C7E 


D250 


16D2 


2C82 


D110 


3F08 


2C86 


D350 


16D2 


2C8H 


03CC 




2C8C 


D110 


3F0e 


2C90 


43CC 


0004 



2C9a 


D010 


3F08 


2C98 


DOFO 


3628 


2C9C 


D1F0 


3618 


2CA0 


08BF 




2CA2 


C8D0 


0028 


2CA6 


D1FC 


361C 


2CAA 


27D1 




2CAC 


2213 




2CAE 


08CF 




2CB0 


D1F0 


3628 


2CB4 


C8 00 


3130 


2CB8 


DE60 


3485 


2CBC 


966B 




2CBE 


43F0 


2CDC 


2CC2 


D110 


3F08 


2CC6 


9D65 




2cce 


4210 


32A0 


2CCC 


C350 


0020 


2CD0 


2333 




2CD2 


40 50 


346A 


2CD6 


C800 


3132 


2CDA 


030C 




2CDC 


41 DO 


320C 


2CE0 


D110 


3F08 


2CE4 


9D65 




2CE6 


C350 


0080 


2CEA 


4230 


2CF2 


2CEE 


430C 


0004 



3478 




BE 


HRTBttD 


BLCCIC SODE 


3479 


# 








3430 


* 


SELCH 


•lODE 




3481 


* 








3482 




STH 


RI.RSAVE 




3483 




LHI 


B1,.*LI« 


SELCH WRITE IIIIFS 


3484 




LB 


82, WRITE 


DEVICE ^JHITE COMMAND 


3485 




LB 


BS.SOMRT 


SELC-i GO E WaiTE 


3486 




LHI 


R0,-'14" 


ERSO? 14 


3487 




LHI 


R4,C*10' 


ER?D= ID 


3488 




BAL 


R11,HHREC 


■<I91Z-. A RECORD 


3489 




8 


EPPDUT 




3490 




B 


N0H1RET 




3491 


* 








3492 


HEOT 


STH 


STAT.EOTFLG 


SET EOT FLAG 


3493 




BR 


S12 


ERR3? S'SriJRS 


3494 


EBBOUT 


STB 


STAT,ERRSTA 


3AV£ ESHOR STATUS 


3495 




LI 


R1,RSAYE 




3495 




LB 


STAT,ERR3TA 


GET iTAT'JS 


3497 




BR 


ai2 


EFRC? Emilias 


3498 


HORNRET 


LR 


R1,RSAVE 




3499 




B 


4(?12) 


NDS»AL 3ETU5S 


3500 


♦ 








3501 


* 


BLOCK 


SODE 




3502 


* 








3503 


WRTB!1D 


STH 


81,RSAVE 




3504 




STH 


fi15,HSAV32 




3505 




LM 


R15,MLIH 




3506 




LHR 


R11,B15 




3507 




LHI 


R13,40 




3503 


LRFIFTEN 


LSI 


ai5,WLIM+4 




3509 




SIS 


R13,1 




3510 




BNHS 


LBFIFTEN 




3511 




LHR 


R12,R15 




3512 




LN 


R15,RSAV32 




3513 




LHI 


RO.C'10' 


EBR33 10 


3514 




OC 


DEV, WHITE 




3515 




WBB 


DEir,E11 




3516 




BFC 


15,SIITSH1 


COHDITION ZERO? 


3517 


WABEND 


LH 


fi1,8SAVE 




3518 




SSR 


DET,STAT 




3519 




BTC 


l.flTDU 


DU? 


3520 




THI 


STAT, X" 20- 


EOT? 


3521 




BZS 


WRTERB2 




3522 




STH 


STAT.EOTFLG 


TES - SET UP EOT FLAG 


3523 


WBTEBR2 


LHI 


S0,C'12' 


ERPJf 12 


3524 




BR 


R12 




3525 


SHTHHI 


BAL 


H13,UAIT3 


HAITFOR E0«=1 


3526 




LH 


R1,aSAVE 




3527 




SSfi 


DET,STAT 




3529 




THI 


STAr,X'80* 


E8B SET? 


3529 




BSZ 


RB8EC3 




3530 




B 


4(E12) 


UO?»AL RETURH 



CMT34a20 
C«T 34830 
CHT34840 
CHT34?50 
CNT34a60 
CUT 34870 
CHT34B80 
CMT3489C 
CMT3490C 
C.1T349 1C 
CtT 34920 
CHT3493C 
Cf!T3494C 
CMT3495C 
CHT3496C 
CHT 34970 

CHT3498C 

CHT3499C 
CKT3500C 
C>1T3501C 
CHT35020 
CMT3503C 
CHT35040 
CHT35050 
CnT35060 
CBT3507C 
CNT35080 
CnT3509C 
CNT35100 
C."iT 35110 
CHT35120 
CnT35130 
CKT35140 
CST35160 
CHT35160 
CMT3517C 
CnT35180 
CflT3519C 
CMT35200 
CHT35210 
CHT35220 
C>1T35230 
CHT35240 
CHT 35250 
CHT35260 
CBT35270 
CHT3528C 
CHT35290 
CHT35300 
C!1T35310 
CnT35320 
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2CF2 



030C 



2CF4 


41E0 


2F62 


2CF8 


«1C0 


31BE 


2CFC 


a850 


346E 


2D00 


C550 


0001 


2D0'» 


4 3 30 


2D2C 



2D08 


D010 


3F08 


2D0C 


C810 


3620 


2D10 


D320 


3l»8tt 


2D14 


D330 


3(»8 1 


2D18 


C800 


3135 


2D1C 


C8H0 


3131 


2D20 


U1E0 


2D6 2 


2524 


«3C0 


2C7E 


2D28 


14300 


2C8C 



2D2C 


D010 


3F08 


2D30 


DCFO 


3628 


2C31I 


D1F0 


3620 


2D38 


OBBF 




2D3A 


D1F0 


3521* 


2D3E 


08CF 




2Di»0 


D1F0 


3628 


2D1»U 


C800 


3131 


2D1I8 


DE60 


318U 


2Di»C 


976B 




2DUE 


«3F0 


2CDC 


2D52 


D110 


3F08 


2D56 


9Ce5 




2D58 


tt210 


32A0 


2D5C 


caoo 


3133 


2D60 


30C 





3531 
3532 
3533 
353« 
3535 
3536 
3537 
3538 
3539 
3510 
35l»1 
35112 
15U3 
3514 
35H5 
351(6 
35i»7 
35l»8 
3549 
3550 
3551 
3552 
3553 
3554 
35SS 
3556 
3557 
3558 
3559 
3560 
3561 
3562 
3563 
356M 
3565 
3566 
3567 
3568 
3569 
3570 
3571 
3572 
3573 
3574 
3575 
3576 
3577 
3578 
3579 
3580 
3581 
3582 
3 58 3 



BHBEC3 



3B 



H12 



EBHOR RETfJHN 



SUBROUTIHE RDSEC * 

THIS ROUTINE BEADS A RECORD FROM THE "1A3. TAPE * 

IT OPERATES EITHER ON SELCH -lODE 0? 33/W3 10DE. * 

THE STABTISG ADDRESS OF THE READ BUFFEa IS STORED * 

AT LOCATION RLIN, AND THE ENDING SDDSKSS AT * 

TRANSFER, IT HILL RETURN ON 4(R12). ■5R0P RETURN • 

IS AT 0(H12) * 

CALLING SEQUENCE: » 

BAL H12,RDREC * 

B ERR3B * 

NEXT INST3UCTI0N * 



********************************* 



t**********»************ 



RDREC 



RDRHD 



RABEND 



BAL 

BAL 

LH 

CLHI 

BE 



ai3,CBBUF 
ai3,WAIT2 
R5,H0DFLG 
R5,1 

SDBHD 



SELCH 10DE 



STH 

LHI 

LB 

LB 

LHI 

LHI 

BAL 

6 

B 



R1,RSAVE 

ai,RLIH 

R2,RSAD 

S3,:;0PD 

R0,C'15* 

aa.c'iv 

B11,RWREC 

ERROUT 

NORC.HET 



BLOCK aODE 



ST« 

STM 

LM 

LHR 

LN 

LHR 

LK 

LHI 

OC 

BBR 

BFC 

LH 

ssa 

BTC 
LHI 
BR 



R1,RSAVE 

R15,RSAV32 

R15,RLI!1 

ai1,R15 

H15,SLI«+4 

R12,R15 

B15,RSAV32 

RO.C'ir 

DEV,READ 

DEV,R11 

B15,aWTRH1 

auasAVE 

DE»,STAT 
1,»TDU 
a0,C'13* 
R12 



WAIT FOR MST'( = 1 
RB/.<B SODE? 



SELCH READ LIMITS 

DEVICE READ CO»"^ASD 

SELCH GO € °SAD 

ERROS 15 

Ei^rtOH 11 

READ A SECO'O 



ERROR 11 



COSDinOS ZERO? - '<3;?1AL HET'JRN 



D!J? 

EKR:)R 13 
ERROR RETURN 



CH? 35330 
C!'T35340 
C«T 35350 
CST35360 
C.1T35370 
C1T35380 
est 35 39 
^•135400 

CRT35420 
CIIT35430 
C!1T35440 
CHT3545C 
CNT35460 
C»T35470 
CMT35480 
CRT35490 
CKT35500 
CMT35510 
C1T35520 
C!«T35530 
CRT355U0 
C?fT35550 
CST3556C 
C«r35570 
CHT35580 
C?!T3559C 
CMT35600 
CRI35610 
C?'T3562C 
C'!T35630 
C»T35640 
Cri 35*^50 
C';T35560 
C''.T3567C 
C'<:35680 
C1T35690 
CI'T35700 
C.rT35710 
CrT3572Q 
CMT35730 
C?.r 35740 
C,>!T35750 
CKT35760 
C>(T35770 
CMT35780 
C'«T3579C 
C1T35800 
C1T35810 
C.>1T35a20 
C^T35630 
C'1T3584C 
C1T35S50 
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2D52 


U8E0 


16C4 


2D66 


2138 




2D6a 


DE70 


3l*7E 


2D6C 


D871 


0000 


2D70 


D871 


000« 


2D7H 


230B 




2D76 


DE70 


3614 


2D7A 


DA71 


0001 


2D7E 


D871 


0002 


2082 


DA71 


0005 


2D86 


DB71 


0006 


2DBA 


9E62 




2Dec 


2343 




2D8E 


41F0 


2E12 


2D92 


9E73 




2D9ft 


9D75 




2D96 


2081 




2D9B 


DE70 


3a7E 


2D9C 


9D65 




2D9E 


2377 




2DA0 


C520 


0022 


2DAH 


11230 


2DS2 


2DA3 


'♦300 


2CC2 


2DAC 


I)E70 


3«7E 


2DB0 


U850 


16C* 


2DB* 


2138 




2DB6 


9975 




2DB3 


tt551 


000«t 


2DBC 


«2 30 


2DFA 


2DC0 


U300 


2DEU 


2DC« 


DE70 


361U 


2DC8 


9B75 




2DCA 


Da51 


0005 


2DCE 


1*230 


2DFA 


2DD2 


9B75 




2DD4 


D«E1 


0006 



358 <t 






3535 




SUBROUTINE RUREC 


3586 






THIS 


ROUTINE READS OR 


3587 






AND THEM COMPARES THE 


358B 






ADDRESS TO DETERMINE 


3589 






CORRE 


CTLT. 


3590 






ASSUMPTIONS: 


3591 






R1 CONTAINS STARTING 


3592 






fi2 CONTAINS DEVICE CO 


3593 






B3 CONTAINS SELCH COM 


359l» 






BO CONTAINS ADDRESS M 


3595 






HU CONTAINS ERROR NUM 


3596 






IF NO 


ERROR IS DETECT 


3597 






IF AN 


ERROR IS DETECT 


3598 






CALLING SEQUENCE: 


3599 






BAL 


R11,RWREC 


3600 






3601 


BWaEC 


LH 


R5,MOD32 


3602 






BNZS 


HWMOD32 


3603 






OC 


SELCH, STOP 


360U 






UH 


SELCH, 0(H1) 


3605 






HH 


SELCH, ll(R1) 


3606 






BS 


SWREC1 


3607 


RHH0D32 


OC 


SELCH, ST0P2 


3608 






«D 


SELCH, 1(R1) 


3609 






WH 


SELCH, 2(B1) 


3610 






WD 


SELCH, 5(R1) 


3611 






HH 


SELCH, 6(P1) 


3612 


E»9EC1 


OCR 


DEV,R2 


3613 






BFFS 


<»,RI<REC.A 


361U 






BAL 


B15,FSrNC 


3615 


HMRECA 


OCR 


SELCH, R3 


3616 






SSR 


SELCH, STAT 


3617 






BTBS 


B,1 


3618 






OC 


SELCH, STOP 


3619 






SSB 


DEV,3TAT 


3620 






BFFS 


7,BWC0H 


3621 






CLHI 


R2,X'22' 


3622 






BNZ 


RABEND 


3623 






B 


WABEND 


362tt 


BHCOH 


OC 


SELCH, STOP 


3625 






LH 


R5,H0D32 


3626 






BNZS 


8«C0H32 


3627 






RHR 


SELCH, R5 


3628 






CLH 


R5,H(R1) 


3629 






BNE 


MISMATCH 


3630 






B 


H«TRM 


3631 


RMC0B32 


OC 


SELCH, ST0P2 


3632 






RDH 


SELCH, R5 


3633 






CLB 


B5,5(H1) 


36311 






BNE 


MISMATCH 


3635 






RDR 


SELCH, R5 


3636 






CLB 


R5,6(R1) 



VSIIES A RECORD IN SELCH MODE 
FINAL ADDRESS TO THE SPECIFIED 
IF THE TRANSFER ^AS COMPLETED 



ADDPESS OF BEAD 0? WRITE LIMITS • 

MMAND < 

MSND < 

ISM^TCH ERROR NUMBER * 
FOR DEVICE ?.?9 HIT SET CONDITION • 

ED, THIS ROUTINE RETURNS TO U(R11),' 

ED, BRANCH TO 0(^11). ' 



*****«**«***********< 



I************** 



SET UP SELCH TRASSFE5 LIMIT 
FOR 16 BIT 

STOP HITH EXTENDED ADDRESS 
SET UP SELCH TRANSFER LIMIT 
FOR 32 BIT 



OUTPUT DEVICE COMMAND 

FALSE SYNC? 

lES - ABORT TEST 

OUTPUT SELCH GO L COMMAND 

SELCH BUST? 

IfES - WAIT 

STOP SELCH 

NORMAL COMPLETION? 
NO - IS DEVICE COMMAND "HRITE* 
NO - BRANCH TO READ ABEND 
YES - BRANCH TO MSITE ABEND 
NORMAL COMPLETION - STOP SELCH 



IS SELCH FINAL ADDRESS = 
ADDRESS SPECIFIED FOR 16 BIT? 
NO - ADDRESS MISMATCH 

IS SELCH FINAL ADDRESS = 
ADDRESS SPECIFIED FOR 32 BIT? 

NO - MISMATCH 



€11135850 
CST35870 
CHT358e0 
CMT35890 
CMT35900 
CMT35910 
CMT3S92G 
CMT35930 
CMT359U0 
CMT3595C 
CMT35960 
CMT35970 
CMT359eC 
CMT3599C 
CHT36000 
CMT3601C 
CMT36020 
CMT36030 
CMT360I10 
CMT 36050 
C.rT36060 
CMr36Q70 
CMT36080 
CMT36090 
CMT36100 
CMT36110 
CMT 36120 
CMTSenO 

CMr36iao 

CMT36150 
CHT36160 
CMT 361 7C 
CMT 36 18 
CMT36190 
CMT36200 
CRT 36210 
CHT36220 
CHT36230 
CMT 36240 
CHT36250 
CnT36260 
CMT36270 
CMT36280 
CMT 36290 
CMT35300 
CMT36310 
CMT36320 
CMT36330 
CMT363U0 
CMT36350 
CMT36360 
CMT36370 
CMT36380 
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2DD8 


l»230 


2DFA 


2DDC 


9R75 




2DDE 


Dl»51 


0007 


2DE2 


21 3C 




2 DEM 


41 DO 


320C 


2DE8 


9D65 




2DEA 


C3e0 


0080 


2DEE 


1*230 


2DF6 


2DF2 


^30B 


oooi; 


2DF6 


080» 




2DF8 


030B 




2DFA 


9D65 




2DFC 


'»210 


32AO 


2E00 


C520 


0022 


2E0U 


023B 




2E0 6 


C350 


0020 


2E0A 


33B 




2E0C 


1*050 


3U6A 


2E10 


030B 





2E12 


9500 




2E14 


UGOO 


16CA 


2E18 


40F0 


16CE 


2E1C 


1*060 


16 DO 


2E20 


DD60 


16D2 


2E2U 


C8C0 


3030 


2E28 


1*000 


173E 


2E2C 


1*1 FO 


0F9A 


2E30 


U300 


0AE6 



2E31* 


DO 10 


3F88 


2E38 


2U91 




2P3A 


U8A0 


31*66 


2E3E 


0788 




2E!»0 


U1F0 


126A 



3537 






BUS 


MISMATCH 


HO - HIS1ATCH 






CMT36390 


3638 






RDR 


SELCH,B5 








CMT 36*00 


3639 






CL3 


R5,7tR1) 








CMT 361*10 


36<*0 






BHES 


MISilAICH 


SO - MISMATCH 






CMT36i*2Q 


361*1 


HMTRH 


SAL 


R13,rfAIT3 


WAIT FO" E0M=1 






CMT36113C 


3542 






SS3 


DEV.STAT 








CMT36i*60 


361*3 






THI 


STAT,X'80' 


ERR SET? 






CMT36U50 


361*1* 






BNZ 


RWiiEC2 


TES - BRANCH 






CMT36i»6C 


361*5 






3 




fc»*^f»*Ma-r rt r^ 'VB r*>F^H '«'* j^**** «-■*<- 












•^x :\ I 1 / 


nuKB/ii, Rtiu;*.! - i L> ^tiii 1 iiii tiuc 1 lua 


CST 36170 


3646 


* 








AFTER CALL TO RVREC. 






CMT 36480 


351*7 


BtfBEC2 


LHR 


R0,HI* 


PUT ERROR NUM IN RO 






CMT 36 49 C 


361*8 






BR 


all 


ERROR RFTOSN 






CMT 36 500 


361*9 


NISflATCH 


SSR 


DEV,STAT 


END ADDRESS MISMATCH 






CMT36510 


3650 






BTC 


1,MTD0 


0U7 






CMT3652C 


3651 






CLHI 


H2,X'22' 


IS DEVICE COMMAND 'WRITE" 






CMT36530 


3552 






BilZR 


R11 


SO - ERROR SUM IS ALREADY 


IN 


RO 


CMT36540 


3653 






THI 


STAT,X'20' 


YES - EOT? 






CMT3655C 


3651* 






BZR 


R11 


SO - ERROR MUM 13 ALREADY 


IN 


RO 


CMT 36560 


3655 






STH 


STAT,EOTFLG 


YES - SET EOT FLAG 






CMT36570 


3656 






BR 


R11 


ERROR RETURN 






CMT36590 


3657 






* *■ 


CMT3659C 


3658 


* 


SUB80UIISE' 


FSTNC 








CMT 36600 


3559 


* 




THIS 


ROUTINE IS CALLED 


WHEN FALSE SYNC IS DETECTED 






CMT 366 10 


3560 


* 




AFTE 


i AN OUTPUT COMMAND 


. IT CALLS ES.^ALL, AND THEN 






CMT 36620 


3661 


* 




BRANCHES TO OPTIM TO A90ST THE TEST. 






CMT3663C 


3562 


* 




CALLED ON R15 








CMT36640 


3663 


* 






* * 


CMT3665C 


3661* 


* 














CMT3666C 


3665 


F3YNC 


EP35 


S0,R0 


GET CURRENT PSW 






CMT36670 


3666 






STH 


R0,0PSII 


SAVE PSW 






CMT36630 


3667 






STM 


ai5, OLOC 


SAVE LOCATION 






CMT36f9: 


3668 






STH 


DEV,ERaDEV 


SAVE DEVICE ADDRESS 






CMT3670C 


3669 






SS 


DEV.ESRSTA 


SAVE STftT'JS 3YTE 






CMT3671C 


3670 






IMI 


RO, COO- 


ERROR 00 






CMT3';72C 


3671 






STH 


SO, EBRMO 


SAVE ERROR M^MBE.^ 






CMT3673C 


3672 






SAL 


515,ERRALL 








CMT367bC 


3673 






B 


OPTIN 


ABORT TEST 






CMT367;C 


3671* 














* 


CMT36760 


3675 




****** 






♦ * * 


• * 


CMT 36 77 C 


3676 




SUBROUTINE C0SPA8 








CMT3675C 


3677 






THIS 


ROUTINE COMPARES T 


r:E DATA IN THE READ 3UFFER 




* 


CMT367?0 


3678 






WITH 


THAT IN THE .JRITE 


3JFFER. IF MISMATCH IS 




♦ 


CMT3690C 


3679 






DETECTED, THE RTTE FRC* 


R1TH BUFFERS Ki" PFINT=;C. 




* 


CMT36'>10 


3680 






C'.LLIMG SEQUENCE: 






* 


CMT3692C 


3681 






3AL 


R1'*,C0:>!PAR 






• 


CMT3693C 


3682 






POSSIBLE ERRO": 1*6, 1*7 






* 


CMT 36 SMC 


3683 










* * 


CMT 36 f 50 


368U 














♦ 


CMT3656C 


3685 


CORPAR 


ST.1 


R1,RSAVE1 








CMT 363 7? 


3686 






LIS 


R9,1 








CMT3659C 


3687 






LH 


R10,N8YTE 








CMT36baC 


3688 






XHH 


P8,i<8 








CMT36ti;i 


3689 


COMBYT 


3AL 


R15,TSTBRK 


CHECK BREAK KEY 






CMT365 10 



COHHON MAGNETIC UPE TEST PROGRAM 06-172a03A13 
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2Emi 


DOFO 


3628 


2E48 


D1F0 


3620 


2E'»C 


0AF8 




2Ei»E 


D3«iF 


0000 


?E52 


D1F0 


3618 


2E56 


OAFS 




2E58 


D35F 


0000 


2E5C 


D1F0 


3628 


2E60 


0515 




2E62 


U230 


2EA0 


2E66 


C180 


2E40 


2E6K 


DOFO 


3623 


2E6E 


D1F0 


3620 


2E72 


OAFA 




2E74 


26F2 




2E76 


D3«F 


0000 


2E7A 


D1F0 


3628 


2E7E 


C5«40 


00C3 


2E82 


2339 




2E8a 


C800 


3437 


2E88 


KIFO 


0F6A 


2Eac 


C8S0 


356A 


2E90 


1»1C0 


3186 


2E9U 


0711 




2E96 


1010 


346C 


2E9A 


D110 


3F88 


2E9E 


030E 




2EA0 


«eio 


346C 


2EAH 


IJ230 


2EDA 


2EA8 


C800 


3436 


2EAC 


4000 


346C 


2EB0 


UIFO 


0F6A 


2EB4 


1*050 


3E3C 


2EB8 


C850 


356A 


2E3C 


aiDO 


3186 


2EC0 


C850 


34BC 


2ECU 


UIDO 


3186 


2EC8 


C8E0 


34CC 


2ECC 


«1C0 


3186 


2ED0 


1850 


3E3C 


2EDU 


0711 




2ED6 


4010 


16FE 


2EDA 


2402 




2EDC 


41F0 


1O0A 


2EE0 


0854 




2EE2 


C840 


0020 


2EE6 


0722 




2EE8 


POOO 


3F08 


2EEC 


41F0 


1180 


2EF0 


Dice 


3F0S 


2EFa 


2621 




2EF6 


C520 


0008 


2EFA 


2089 





3690 


STK 


H15,RSAV32 


3691 


LS 


R15,PLIf! 


3692 


AHR 


R15,Ra 


3693 


La 


CHAS,0(R15) 


3694 


LK 


R15,WLI1 


3695 


AHR 


R15,R8 . 


3696 


LB 


B5,0(R15) 


3597 


LS 


R15,RSAy32 


3698 


CLHS 


CHAR,R5 


3699 


BNE 


COMERR 


3700 


BXLE 


R8,C0!!BYT 


3701 CHKDEL ST» 


B15,BSAV32 


3702 


L!" 


R15,RLI11 


3703 


AHR 


R15,ai0 


3704 


ATS 


R15,2 


3705 


LB 


CHAR.0(R15) 


3706 


LM 


R15,RSAy32 


3707 


CLHI 


CHAR,X'C3' 


3708 


BE3 


ENDCO'iP 


3709 


LHI 


aO,C'47' 


3710 


BAL 


RIS.EHRD 


3711 


LHI 


R5,H5G08 


3712 


BAL 


R13,«SGPRT 


3713 ENDCOHP XHR 


R1,R1 


3714 


STH 


RI.ERRFLG 


3715 


LM 


BI.BSAVEI 


3716 


BR 


R14 


3717 COHEBR LH 


R1,ERaFLG 


3718 


BNZ 


P8I1D 


3719 


LHI 


R0,C'46' 


3720 


STH 


R0,ERRFLG 


3721 


BAL 


R15,ERRD 


3722 


STH 


R5,TE«P 


3723 


LHI 


R5,HSG08 


3724 


BAL 


R13,HSGPRT 


3725 


LHI 


E5,HSG01A 


3726 


BAL 


R13,HSGPRT 


3727 


LHI 


RSrMSGOIB 


3728 


BAL 


R13,.'!SGPRT 


3729 


LH 


R5,TEHP 


3730 


XH8 


R1,S1 


3731 


STH 


R1,ISITERR 


3732 PRIHD LIS 


R0,2 


3733 


BAL 


R15,R5HEX 


3734 


LH8 


R5,CHAR 


3735 


LHI 


R4,X'20' 


3736 


XHS 


H2,a2 


3737 SPACES STB 


RO,RSAVF 


3738 


BAL 


RIS.OOTCHR 


3739 


LS 


SCSSAVE 


3740 


AIS 


82,1 


3741 


CLHI 


R2,8 


3742 


BLS 


SPACES 
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BYTE NOflBEB 

aSITE BUFFEK ABDRES3 

BYTi NUBSEP 

BYTE OF WRITE BUFFER 

RESTORE P15 

COMPARE 

CONTINUE 



C01PABE - 
ERROR 47 



RESET ERROR FLAG 

RETURN 

DATA NOT EOmL - CHECK ERROR FLAG 

ERROR 46 

SET ERROR FLAG 



PRINT MESSAGE 
PRINT MESSAGE 

PRINT DATA BYTE 
SPACE 



CHT3692C 
CHT3f 530 
CMT3£?«C 

CMT3635C 
CMTS'^tC 
CMT3e97C 
CMT3635C. 
CaT36;3C 
CMT37:o: 
CUT 370 10 
CUT 37 "20 
CUT 37 C 3D 
CHT37:-: 
CMT37; 5C 

CMT37:-;: 

CMT37l-'C 

c?!T37:- : 

Cf1T37i9C 
C,1T3';iiC 
CflT3711C 
CMT37i;c 
CKT3713C 
C1T3716C 
CHT3715C 
CaT37160 
CaT3717C 
CaT37160 
CHT3719C 
CKT372DC 
CMT3721C 
CMT3722G 
CMT37230 
CHT3724C 
CMT3725C 
CMT3726C 
CflT3727C 
CHT3728C 
CMT3729C 
CMT373CC 
CHT3731C 
CMT37 320 
CMT 37330 
C"<T37jftC 
CMT3735C 
CHT3736C 
CMT3737C 
CPIT37iiO 
CMT37335 
CMT37 39C 
C?!T57 39 5 
CNT37iDC 
CHT37I410 
CnT37ii2c 



2EFC 


2U02 




2EFE 


41 FO 


10DA 


2F02 


l»1F0 


11H2 


2F06 


C180 


2E40 


2F0A 


II3C0 


2E6A 



2F0E 


i»aoo 


3a66 


2F12 


DOFO 


3628 


2F16 


D1F0 


3618 


2F1A 


085F 




2F1C 


0A50 




2F1E 


08F5 




2F20 


DOFO 


361C 


2F24 


D1F0 


3620 


2F28 


085F 




2F2A 


0A50 




2F2C 


0SF5 




2F2E 


DOFO 


362U 


2F32 


D1F0 


3628 


2F36 


030E 





2F38 


noio 


3F88 


2F3C 


2<»91 




2F3E 


ii8A0 


31(66 


2FU2 


0788 




2Ftt« 


0858 




2F46 


UUEO 


3I(6'4 


2FUA 


D1F0 


3618 


2Fl»E 


OAFS 




2F50 


D2£F 


0000 


2F5H 


UIFO 


126A 


2F58 


CI 80 


2F1II* 


2F5C 


D110 


3F88 


2F60 


030E 
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SUBBOUTIHES 

3743 LIS HO, 2 CJ1T37430 

3744 BAL B15,R5HEX PRKT DATA BYTE CNT37440 

3745 BAL B15,CRLF- CMT37450 

3746 BXLE R8,C0HBTT CONriSUE CXT37460 

3747 B CHKDEL CMT37470 
37U8 * * CI1T3748C 
37H9 * **************************************************************** CKT37490 

3750 * saSROaTISE RESET * C?!T37500 

3751 * THIS ROUTINE SETS UP THE HEAD AND WRITE BUFFEH * CMT37510 

3752 * UNITS. * C«T37520 

3753 * CALLING SEQUENCE: * CST37530 

3754 * BAL B14, RESET * Cf!T3754C 

3755 * »««««»«**»»»»*#*♦***«**»«»*«•*»«***•«•»«**«*•*•««•**»»♦•*«♦**«** CNT37550 

3756 * * CMT3756C 

3757 BESET LH RO/NBYTE CNT3757C 

3758 STM E15,RSAV32 CHT37530 

3759 LH B15,WLI!1 CHT37590 

3760 LHR R5,B15 CMT37600 

3761 AHR R5,R0 CBT37610 

3762 LHR B15,B5 C?!T37620 

3763 STH R15,WLIN+4 CMT37630 

3764 LH R15,8LIH CHT37640 

3765 LHP R5,B15 CHT3765C 

3766 AHR R5,R0 CMT3756C 
j/o/ l.nnniD#np ^.ijC/w 

3768 STH H15>LIH+4 CMT37630 

3769 LH R15,HSAV32 CKT37690 

3770 BR H14 C1T37700 

3771 * * CHT3771C 
■37"T2 * ************************************ t ***♦*******•*•**•♦****•*** ♦ C?'.T37720 

3773 * SUBROUTINE BSET * C»T3773C 

3774 * THIS ROUTINE SETS UP THE WHITK BUFFSB- IT FILLS » CKT377U0 

3775 * THE BUFFER WITH DATA OF 00-Ff, AND SETS THE DELIMITKH • CHT37750 

3776 * AT THE END OF THE READ BUFFER. * CMT3776C 

3777 * CALLING SEQUENCE: * €1137770 

3778 * BAL R14,SSET * C«T3779C 

3779 * ************************************************** ^ ************ * C^T3779C 

3780 * • Cf.T3780C 

3781 BSET STH R1,RSAVE1 CiT373lO 

3782 LIS B9,1 CJ1T3782C 

3783 LH RIO.NBYTE C'.T37J30 

3784 XHR R8,R8 C;iT379U0 
3735 SETWBUF LHB R5,Ra C1T3735C 

3786 NH R5,MASK MAS' F0:< 7 TRACK C1T37850 

3787 LM B15,HLIH C'<T37'i70 

3788 AHR RIS.RS CMT3783C 

3789 STB R5,0(R15) C'«T37s?0 

3790 BAL aiS.TSTBBK CHECK BREAK KEY C'*T37900 

3791 BXLE a8,SETWBUF 0^1137910 

3792 LH R1,HSA¥E1 CHT37J20 

3793 BR 314 CHr37930 

3794 * * CHr379ltC 
■a-7g5 * **************************************************************** CHT37-5 50 



COHHON HKGHETIC TAPE TEST PBOGRAH 06-172R03A13 
SUBROUTINES 
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2F62 


D010 


3F88 


2F66 


mo 


3621 


2F6A 


08HF 




2F6C 


2492 




2F6E 


0755 




2F70 


D1F0 


3620 


2F7a 


oesF 




2F76 


DOES 


0000 


2F7A 


UIFO 


126A 


2F7E 


C180 


2F76 


2F82 


0850 


C3C3 


2F86 


D2EA 


0002 


2F8A 


D110 


3F88 


2F8E 


03CD 





2F90 


D0 10 


3F88 


2F9U 


2il91 




2F96 


24AF 




2F98 


0722 




2F9A 


C8«0 


0020 


2F9E 


0788 




2FA0 


DOFO 


3628 


2FA4 


D1F0 


3620 


2FA8 


0AF2 




2FAA 


D35F 


0000 


2FAE 


D1F0 


3628 


2FB2 


2l»02 




2FBit 


<«1F0 


10DA 


2FB8 


UIFO 


11B0 


2FBC 


l»1F0 


126A 


2FC0 


1520 


3f66 


2FC« 


2388 




2FC6 


2621 




2FC8 


C18Q 


2FA0 


2FCC 


UIFO 


11S2 


2FD0 


1*300 


2F9E 


2FDi» 


«1F0 


11A2 


2FD8 


UlfO 


11A2 



3796 

3797 
3798 
3799 
3800 
3801 
3802 
3803 
3804 
3805 
3306 
3807 
3808 
3809 
3810 
3811 
3812 
3813 
38111 
3315 
3816 
3817 
3818 
3819 
3820 
3821 
3822 
3823 
382H 
3825 
3826 
3827 
3828 
3829 
3830 
3831 
3832 
3833 
38314 
3835 
3836 
3837 
3838 
3839 
38i»0 
38 «1 
38U2 
38I»3 
384M 
3SU5 
38!t6 
3847 
38 48 



SUBBOUTIKE CRBUF * 

TKIS ROUTING CLEAB3 THE READ BUFFEK AND SETS THE * 

DELIHETE8 (X'C3C3") AT THE END OF THE BUFFER * 

CALLIHG SEQUENCE: * 

BAL R13,CBBUF * 



CBBUF 



CRBaFI 



STN 

LI 

LHR 

LIS 

XH8 

L.I 

LHF 

STH 

BAL 

BXLE 

LHI 

STB 

in 

BB 



ai.RSAVEl 

B15,RLIM+4 

R10,R15 

R9,2 

R5,a5 

R15,RLIfI 

R8,N15 

R5,0(R8) 

R15,T3TBRK 

R8,CRBUF1 

R5,X'C3C3' 

3 5 , 2 ( R 1 ) 

R1,RSAVE1 

R13 



CHECK BREAK KEY 



* ****** 

* SUBBOO 



********** 



^*****************i 



>********•♦********** 



TINE 
THIS 
TIHE 
CALL 
BAL 



DBHP 

30UTIHE b'bWPS THE READ BUFFER ONE BITE AT A 

AND 16 BltTES I H A LINE. 
ING SEQUENCE: 



* A********-**** 



DUMP 



OUTDHP 
DMPLIN 



DUBLIN 



STH 
LIS 
LIS 
XHR 
LHI 
XHR 
STfl 

m 

AHR 

LB 

LJ! 

LIS 

BAL 

BAL 

BAL 

CLH 

BSLS 

AIS 

BXLE 

BAL 

B 

BAL 

BAL 



R1«,DUNP 
**************i 

R1,RSAVE1 

89,1 

810,16 

R2,R2 

RU,X'20' 

R8,R8 

K15,RSAV32 

815,RLIH 

H15,R2 

85,0(R15) 

R15,8SAV32 

R0,2 

815,B5HEX 

B15,0UTCHR 

ai5,TSTBBK 

R2,!(ByTE 

DUBLIN 

R2,1 

R8, DMPLIN 

pi BjCRLF 

OUTDHP 

R15,CBLF 

R15,CRLF 



'lr*******1t****«*******-*****'*********< 



16 BITES PER LINE 

SPACE 

SAVE R15 

READ BUFFER ADDRESS 

LOAD BITE FROH READ BUFFER 
RESTORE 315 

PRINT BITE 

PRINT SPACE 

BREAK? 

FULL BUFFER PRINTED? 

SO - CONTINUE 
16 BITES' 
YES - CH ^LP 

DOUBLE LINE FEED 



CST37960 
C(i;r37970 
C'iT3793C 
C!1T3799C 
C»T38000 
CT 38010 
C.fr33020 
CST 38030 
Ci'T3804C 
C«T3805C 
CSTSSOeO 
C.rT3807 
C'1T33080 
C'1T3809C- 
CNT38100 
C'!T381ia 
^.138 120 

c^Tsanc 

C"T38 14C 
CTSBISC 
C<(T38 16C 
C"<T 38170 
C»T3818C 
C!!T3819C 
CST38200 
C'1T3821C 
CST38220 
C«r38230 
C.fT33 24 
C?(r38250 
C»T38 26C 
CST 38270 
C'«T38280 
C«T38290 
CBT3830C 
CJ!T3e310 
CHT38320 
CST 38330 
CMT38340 
CJ!T38 350 
CST 38 36 
CHT38 37C 
C»!T38380 
CM38390 
CST 38400 
CST3e410 
C'iT38'i2C 
CHT33U30 
CRT38440 
rm^ -2 D ji c rt 

1..: i ^ tf -^ J v 

CRT3R460 
C.1T38 47 
CWT38480 
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2FDC 
2FE0 



D110 3F88 
030E 



2FE2 


C800 


3035 


2FE6 


2306 




2FE9 


CBOO 


3036 


2FEC 


23C3 




2FEE 


C800 


3037 




It 4 r«n 




2FF6 


9D65 




2FF8 


2348 




2FFA 


C350 


0080 


2FFE 


2135 




3000 


C350 


ooto 


300U 


t23E 


OOOft 


3008 


itlFO 


OF82 


300C 


030E 





300E aifO 0Fa2 

3012 C8E0 356A 

3016 01C0 3186 

301A 030E 



33U9 
3350 
3851 
3852 
3853 
335tt 
3855 
3856 
3857 
3853 
38 59 
3860 
3861 
3S62 
3363 
336U 
3865 
3866 
3867 
3868 
3869 
3370 
3871 
3872 
3373 
3371* 
3875 
3876 
3877 
3373 
3879 
3380 
3881 
3382 
3383 
338U 
3385 
?386 
3937 
3888 
3389 
3393 
3391 
3892 
3893 
389U 
3895 
3396 
3397 
3898 
3S99 
3900 
3901 



LF! R1,RSAVE1 

BB Bm 



HET'IRH 



SUBROUTINE SENS01, SENS02 £ SENS03 * 

THIS HOOTINE DETERMINES WHETHER AN EOF HAS BEES » 

DETECTED. IF NOT, AN ERROR MESSAGE KILL 3E PRI.NTfD * 

AND RETURN OS ERROR. IF NO ERROR IS DETECTED, IT * 

MILL RETURN TO LOCATIOM HfRIU) * 
THREE ENTRY POINTS ARE PROVIDED: 

SENS01 FOR SENSING EOF AFTER WEOF * 

SENS02 FOR SENSING EOF AFTER READ * 

SENS03 FOR SENSING EOF AFTER 3<IP i BACKSPACE 

CALLING SEQUENCE: » 

BAL S1I4,3ENS01 (EXA.1PLE) * 

B ERROR ERROR RSTURN HERE * 

NEXT ISSTaUCTIOM NORMAL RETURN HE^^E * 



SENS01 
SENS02 

SENS03 

SEN EOF 



EOFER 



LHI 

BS 

LHI 

BS 

LHI 

BAL 

SSR 

BFFS 

THI 

BNZS 

THI 

BNZ 

BAL 

BR 



R0,C'05' 
SENEOF 
R0,C"06' 
SENEOF 
R0,C'07' 
■ S i 3, WSITj 
!)EV,STAT 
4, EOFER 
STAT,X'80* 
EOFER 
STAT.X'UQ- 

a(Ria) 

R15,ERRDS 
314 



ERROR 05 (MEOF) 

ERROR 06 (READ EOF) 

ERROR 07 (SKIP £ BACKSPACE EOF) 
WAIT FOR E0li = 1 

EX BIT SET? 
ERR BIT SET? 

EOF DETECTED? 



**************************************************************** 



PRINTS THE ERROV flESSAGES WITH THE 



:<;<=T-:sT *, ty=er»or « 

DD = OKYIC': 1, S3 = STATUS 

N=,'*;)DE ^('J,>;.T-:^ 



SUBROUTINE ERRnSG2 

THIS SUBROUTINE 

MODE MESSAGE 

THE MESSAGE PRINTED IS: 

ERROR XXYr 

DEV DD STA SS 

MODE V 

RETURN ON RIU 

ERRMSG2 BAL B15,ERRDS PRINT E.^ROR MESSAGE 

LHI R5,MSG09 
BAL R13,MSGPRT 
BR R1f» 

♦ ******************************************************** 
» SUBROUTINE SETMOD t TSTMOD 

* THESE ROUTINES SET THE PROPER MODE THE DEVICE IS 

* BE TESTED UNDER. 

• ROUTINE SETMOD SETS THE INirHL TEST h:}DE ACCORDI 



******** 



*ft*****i 



TO 



CMT38U9C 
CMT33 50G 
CMT3851C 
CMT3S520 
CMT36S3C 
CMT385ttO 
CMT 36550 
C»T3856C 
CMT38570 
CMT3853Q 
CMT 38590 
CMT38600 
CMT 366 10 
CMT38b20 
CMT3g630 
CMT336ttO 
CMT38550 
CMT3366C 
CMT38670 
CMT 3863 
CMT 33590 
CMT33700 
CMT 38710 
CMT38720 
CMT38730 
CMT38740 
CMT 33750 
CMT33760 
CMT3e770 
CMT38780 
CMT38790 
CMT 38300 
CaT38B10 
CMT33«20 
CMT38B30 
CMT333H0 
CMT33850 
CMT38860 
CMT3'^H7 
CMT338P0 
CMT33890 
CMT33 90C 
CMT339 1C 
CMT 38 9 20 
CHT33930 
CMT3891I0 
CMT3R95C 
CMT 38 9 10 
CMT33970 
CMT 38 93 C 
CMT53990 
CMT3900C 
CMT 39010 
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3010 


USEO 


1840 


3020 


213C 




3022 


21*52 




302a 


230A 




3026 


l»8 50 


1840 


302A 


4230 


2B9A 


302E 


4850 


346E 


3032 


2751 




30314 


4330 


2B9A 


3038 


4050 


346E 


303C 


CA50 


0030 


30lt0 


D250 


356F 


30<|l» 


41F0 


126A 


3048 


030D 





304A 


4850 


3470 


30aE 


C55C 


0005 


3052 


238B 




3054 


2651 




30 56 


4050 


3470 


305A 


41 DO 


31BE 


305E 


DEeo 


3483 


3062 


41F0 


126A 


3066 


030E 




3068 


0755 




306A 


4050 


3470 


306E 


C850 


34DC 


3072 


41 CO 


3186 


3076 


41F0 


126S 


307A 


430E 


0004 



3902 
3903 
3904 
3905 
3906 
3907 
3908 
3909 
3910 
3911 
3912 
3913 
3914 
3915 
3916 
3917 
3918 
3919 
3920 
3921 
3922 
3923 
3924 
3925 
3926 
3927 
3928 
3929 
3930 
3931 
3932 
3933 
3934 
3935 
3936 
3937 
3938 
3939 
3940 
3941 
3942 
3943 
3944 
3945 
3946 
3947 
3948 
3949 
3950 
3951 
3952 
3953 
3954 



TO THE OPTIOH HODS. IF ZERO, IT WILL SET MODE 2 
ROUTIHE TSTMOD TESTS IF ANY HORE TEST IS TO 3E 
PERFORflED UNDER A DIFFERENT HODE. IF MODE OPTION 
IS ZERO, IT WILL DECREMENT BODE. IF RODE OPTION IS 
NON-ZEBO OR DECBEIE'iTED HODE 13 ZERO. IT JILL BBANCrt 
TO TEST END. 
CALLING SEQUENCE: 
BAL R13,SETH0D OR 

BAL R13,TSTK0D 



**«r*********************«-***********fl 



t ***** Ir d 



^*********« 



ft ***** * 



SETSOD 



TSTBOD 



KSET 



LH 

BNZS 

LIS 

BS 

LH 

BNZ 

LH 

SIS 

BZ 

STH 

AHI 

STB 

BAL 

BR 



R5,«0DE+6 

NSET 

R5,2 

HSET 

R5,M0DE+6 

CHKE.ND 

R5,«0DFLG 

R5,1 

CHKEND 

R5,H0DFLG 

35,X'30' 

R5,HSG08+5 

H15,TSTBRK 

R13 



GET MODE OPriON 
MODE - START JITH MOD- 
MODE 0? 
NO - END TEST 
YES - 

DECPEMEM MODE FLAG 
ZERO? - END TEST 
STORE 

SET MODE MESSAGE 
CHECK BREAK KEY 



**************************************************************** 
S'JBRO'JTIHE RETRY » 

THIS ROUTINE KEEPS A RETRY COUNT. IF THE COUNT IS * 

LESS THAN 5, THE ROUTINE HILL BAC?;3PACE AND RETURN * 

AT LOCATION 0(R14). OTHERWISE, IT RETURNS AT 4(R14). * 

CALLING SEQUENCE: ♦ 

BAL R14, RETRY * 

B TBT AGAIN 

B PROCEED 

**************************************************************** 



GO TRY AGAIN 
PROCEED 



RETRY 



RTTFAIL 



LH 

CLHI 

BNLS 

AIS 

STH 

BAL 

OC 

BAL 

BR 

XHR 

STH 

LHI 

BAL 

BAL 

B 



RS.RTYCST 

B5,5 

RTYFAIL 

R5,1 

B5,RTrCNT 

R13,WAIT2 

DE¥,BKSPAC 

R15,TSTBRK 

R14 

R5,R5 

R5,RTYCNT 

R5,flSG02 

H13,MSGPRT 

SI 5,TSThHK 

4(R14) 



******************* 



ft*********4 



LOAD RETRY COUNTER 
5 TIMES? 

INCREMENT COUNTER 

HAIT FOR NMTN=1 
BACKSPACE 
CHECK BREAK KEY 

5 TIMES FAILED 



PRINT MESSAGE 
CHECK BSEAK K:ET 



ft**************************** 



CMT39020 
CMT39030 
CMT390 4 
CMT39050 
CMT39060 
C«r39070 
CMT3908C 
CMT39090 
CMT39100 
CMT 39110 
CMT39120 
CMT39130 
CMT 39140 
CMr39150 
CMT39160 
CMT 39170 
CMT39180 
CMT 39190 
CMT39200 
C"T 39210 
CMT39220 
CMT39230 
CMT39240 
CKT39250 
CMr39260 
CMT39270 
CMT 39280 
CMT39290 
CMT 39300 
CMT3931C 
CMT39320 
CnT39330 
CMT39340 
CMT 39350 
CMT39360 
CHT39370 
CMT39380 
CMT39390 
CMT 39 400 
CMT39410 
CMT39420 
CKT39430 
CBT39440 
CMT 39450 
CMT39460 
CKT39470 
CMT39480 
CnT39490 
CMT 39 500 
CMT 39510 
CMT39520 
CHT39530 
CMr39540 
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307E 


^SIO 


190C 


3082 


033E 




308i( 


«3«0 


3468 


3088 


023E 




303A 


2M1JF 




308C 


to 1*0 


3468 






3F33 


3094 


C8E0 


3572 


3093 


l»1C0 


3186 


309C 


dlFO 


126A 


30AO 


2«91 




30A2 


0788 




?0A4 


0722 




30A6 


D080 


3F08 


30AA 


UIFO 


121C 


30AE 


D180 


3F08 


3032 


C5II0 


OOOD 


3036 


1*3 30 


314C 


30BA 


1*1 no 


3158 


30BE 


220C 




30C0 


0854 




30C2 


9154 




30CU 


D080 


3F08 


30C8 


U1F0 


121C 


30CC 


D180 


3F08 


30DO 


C540 


OOOD 


30Dl» 


4330 


310E 


30D8 


4U0 


3158 


30DC 


220A 




30DE 


0654 




30E0 


4450 


3464 


30E« 


DOFO 


3628 


30 E8 


D1F0 


3618 


30EC 


0AF8 




30EE 


D25F 


0000 



3955 

3956 

3957 

3958 

3959 

3960 

3961 

3962 

3963 

3964 

3965 

3966 

3967 

3968 

3969 

3970 

3971 

3972 

3973 

3974 

3975 

3976 

3977 

3978 

3979 

3980 

3981 

3982 

3983 

3984 

3985 

3986 

3987 

3988 

3989 

3990 

3991 

3992 

3993 

3994 

399 5 

3996 

3997 

3998 

3999 

4000 

4001 

4002 

4003 

4004 

4005 

4006 

4007 



SUBBOUTISE IMDATA 



THIS ROUTINE ACCEPTS A DAT* STRING OF UP TO 64 2YTES 
FaO.I THE TTY. THE INPUT CHARACTEB ?iaST BE A VALID 
HEX CHAEACTER. AND THE PROGBAI HILL STORE THE 
COBRESPCNDING HEX VALUE INTO THE W?ITE BUFFER. UPON 
RECEPTION OF CR, THE ROUTING VILL GENERATE THE WHOLE 
WHITE BUFFER BY REPEATING THE INPUTED STRING 



TV TUP T C^T TC 



TC or 



THIS ROUTINE HILL BE BY-PASSED AFTER THE FIRST PASS. 

NO DATA IS REQUESTED ON S'JBSEgUEKT PASSES. THIS 

ROUTINE HILL NEVER BE EXECUTED IF OPTION DATA IS 

BESET. 

CALLING SEQUENCE 

SAL R14,IffDATA 



*****»••♦********♦* 



»*************«ft**«ri 



►•*•**»**•»**•♦**♦♦ 



INDATA 



GETDATA 



GTDAT2 



LH 

BZR 

LH 

BNEET 

LIS 

STH 

SIR 

LHI 

BAL 

8AL 

LIS 

KH3 

XHR 

ST?! 

BAL 

L"? 

CLKI 

BE 

BAL 

BS 

LHR 

SLtS 

STS 

BAL 

LI 

CLHI 

BE 

BAL 

3S 

OHP 

NH 

ST!1 

LH 

AHR 

STB 



84,DATA+6 
R14 

R4,DE 

R14 

S4,15 

34, DE 

R1,BSAVE1 

R5,BSG09 

R13,HSGPRT 

815,TSTBRK 

R9,1 

R8,R8 

H2,a2 

R8,RSAVE 

S15,GETCHR 

H8,aSAVE 

CHAR.X'OD' 

INESD 

B13,HEXCHK 

GETDATA 

R5,CHAR 

35,4 

R8,RSAVE 

S15,GETCHR 

R8,RSAVE 

CHAR,X'OD' 

INEND1 

R13,HEXCHK 

GTDAT2 

35, CHAR 

R5,«ASK 

R15,RSAV32 

R15,HLIH 

R15,H8 

R5,0(R15) 



OATA OPTION SET? 

NO - EXIT 

DATA FLAG SET? 

YES - EXIT 

NO - SET DATA FLAG 

AND 

::et data pattern 
print ne3sage 

check break key 



liT A CHARACTER 



CS? 

TE3 - lypUT END 

CHECK F0= HEX CHAR 

INVALID DATA, GET ANOTHSP 

SHIFT FIRST HEX DIGIT LiFT 

3ET SECOND CHARACTER 

:s? 

Yc;S - INPUT END 

CHECK HEX CHAR 

INVALID DATA, GET ANOTHER 

APPEND SECOND HEX DIGIT 



CKT39S50 

CMT39560 

CHr39570 

C?iT3958Q 

C?!T3959C 

CMT39600 

C«T39610 

C:iT3962C 

CHT39630 

C?1T39640 

C.1T 39650 

CUT 39660 

CNT3967Q 

C«T 3968 

CMT39690 

CHT39700 

C!ir3971C 

C?1T39720 

CHT 39730 

CflT39740 

CI1T39750 

C1T3976C 

CNT 39770 

C, IT 39 78 

CST39790 

CMT39800 

CaT 39810 

CHT39820 

CMT39830 

CNT3984C 

CMT39850 

C1T3986G 

CaT39 87C 

CNT3988C 

CMT39890 

C!1T3990C 

C!1T39910 

C«T3992C 

CHT3993C 

C?lT39g40 

CfT 39950 

CKT3996C 

CST3997C 

CJ1T3998C 

CMT39990 

CKT40000 

c.iTacoio 

CMT40020 
CMT4O030 
CHTU0040 
CnT4005D 
CNT40060 
CnT40070 
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SOBEOaTINES 



30F2 


DIFO 


3629 


30F6 


2622 




30F3 


C^20 


00<I0 


30FC 


4380 


3120 


3100 


cieo 


30A6 


310U 


UIFO 


11A2 


3108 


D110 


3F88 


310C 


03CE 




310E 


DOFO 


3628 


3112 


DUO 


3618 


3116 


OAFS 




311B 


D25F 


0000 


311C 


DIFO 


3628 


3120 


0722 




3122 


C080 


3ioa 


3126 


DOFO 


3628 


312A 


DIFO 


3618 


312E 


0AF2 




3130 


D3MF 


0000 


3134 


DIFO 


3618 


3138 


OAFS 




313A 


D25F 


0000 


313E 


DIFO 


3628 


31H2 


«1F0 


126A 


31<t6 


2621 




31U8 


11300 


3122 


31tC 


0822 




314E 


«330 


310«l 


3152 


0722 




315a 


11300 


3126 



3158 


C5lt0 


0030 


315C 


a280 


317C 


3160 


C5«0 


003A 


316« 


2188 




3166 


C5t0 


00M1 


316A 


2189 




316C 


C5U0 


ooa7 


3170 


2386 




3172 


26U9 





4008 

«009 

U010 

4011 

4012 

4013 

4014 

4015 

4016 

1017 

4018 

4019 

4020 

4021 

4022 

4023 

4024 

4025 

4026 

4027 

4028 

4029 

4030 

4031 

4032 

4033 

4034 

4035 

4036 

4037 

4038 

4039 

4040 

4041 

4042 

4043 

4044 

4045 

4046 

4047 

4048 

4049 

4050 

4051 

4052 

4053 

4054 

4055 

4056 

4057 

4058 

4059 

4060 



64 CHARACTERS (32 HEX)? 
BUFFER L-SGTH EXCEED? 



DATFIL 



IHEND1 



IMEND2 

MOVDATA 
nOVDATI 



L* R15,RSAV32 

AIS R2,2 

CLHI R2,64 

BNL IltEHD2 

EXLE H8,3ETDATA 

BAL B15,CBLF 

m R1,RSAVE1 

BR R14 

STK R15,RSAV32 

LH R15,WLIH 

AHR R15,B8 

STB R5,D(R15) 

LM R15,RSAV32 

XHH R2,R2 

BXH R8, DATFIL 

STH R15,RSAV32 

LI B15,HLIN 

AHR H15,R2 

LB CHAR,0(R15) 

L)1 RISrWLIH 

AHR R15,R8 

STB R5,0(R15) 

LM B15,RSA¥32 

BAL B15,TSTBRK 

AIS B2,1 

B BOTDATA 

LHR R2,R2 

BZ DATFIL 

XHR R2,R2 

B H0VDAT1 
*********************************************** 

SUBROOTIXE HEXCHK 

THIS ROUTINE CHECKS IF THE CONTEST OF R4 
A VALID HEX CHARACTER. IT THEN- CONVERTS 
HEX DIGIT, AND BETORNS AT 4(B13). IF THE 
IS ROT A VALID HEX CHARACTER, IT OUTPUTS 
AND RETURNS AT 0(R13) 
CALLING SEQUENCE; 
BAL B13, HEXCHK 

B ERROR ERROR RETURN 

NEXT INSTRUCTION SORHAL RETURN 

*********************************************** 



CHECK BREAK KEY 



IN END 



***************** 



(CHAR 

IT INT 

CHARA 

A •?• 



) IS 
A 
CTE8 



***************** 



HEXCHK 



CLHI 


CHAR,C" 


'0* 


BL 


KOHEX 




CLHI 


CHAR,X' 


■3A 


BLS 


GDHEX 




CLHI 


CHAR.C 


'A* 


BLS 


NOHEX 




CLHI 


CHAR,C' 


'G' 


BMLS 


•COHEX 




AIS 


CHAS,9 





LESS THAN 07 

YES - INVALID 

NO - LESS THAN X'3A'? 

YES - VALID 

NO - LESS THAN A? 

ItS - INVALID 

HO - GREATER THAN F? 

YES - INVALID 

NO - C0SV3RT TO HEX DIGIT 



CMT40080 

CHT40090 

CHT40100 

CflT40110 

CMT40120 

CMT40130 

CHT40140 

CKT40150 

CBT40160 

CNT40170 

CNT40180 

C)1T40190 

CflT40200 

CNT40210 

CBT40.120 

C«IT40230 

CMT402aO 

CflT40 250 

CHTU0260 

CRT40270 

CHTU0280 

C5T40290 

CKT40300 

CBT40310 

CHT40320 

CHT40330 

CHT40340 

CnT40350 

CHT40360 

CHT40370 

CHT40380 

CnT40390 

CBT40400 

CFIT40410 

CMT40420 

CnT40430 

CUT 40440 

CST40450 

CHT40460 

CKT40470 

CHT40480 

CBT40490 

CBT40500 

CHT40510 

CHT40520 

CBT40530 

CBT40540 

CHT40550 

CBT40560 
r'liT II ntnn 

CBT40580 
CBT40590 

CNT40600 
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3174 


CBUQ 


OOOF 


3178 


i*3CZ 


0002 


317C 


C8«C 


003F 


3180 


ItlFC 


11B0 


318« 


03Ct 





3186 


UOEO 


16FE 


318A 


4iro 


112A 


318E 


0755 




3190 


4050 


16FE 


319« 


41F0 


126A 


3198 


03CC 





319A 


U8C0 


0A22 


319E 


9550 




31A0 


41Fa 


126A 


31A4 


48CE 


0000 


31A8 


41F0 


10C0 


31AC 


C8C0 


30F0 


31B0 


9550 




31B2 


OBCP 




31B4 


9re5 




31B6 


41F0 


0F82 


318A 


43CE 


0002 



4061 
4062 
4063 
4064 
4065 
4066 
4067 
4068 
4069 
4070 
4071 
4072 
4073 
4074 
4075 
4076 
4077 
4078 
4079 
40S0 
4081 
4082 
4083 
4084 
4085 
4086 
4087 
4083 
4089 
4090 

409 1 
4092 
4093 
4094 
4095 
4096 
4097 
4093 
4099 
4100 
4101 
4102 

410 3 
4104 
4105 
4106 
4107 
4108 
4109 
4110 
4111 
4112 
4113 



GDHEX 



MOHEX 



SHI 


CHAR,X*3F' 




3 


2(i?13) 




LHI 


CHAR.C'?* 


IH'/ALID CHA 


3AL 


R15,OU?CH3 


psisr •?■ 


BS 


R13 





>***<*************«**1 



'*********•***********•»************»***» 



SUB801TINE MSGPRI 

THIS ROUTINE SETS UP THE CALLING SEQ^EXCE TO PRINT 
A BESSAGE. TKE STARTING ADDRESS OF TH5 ,1E3SAGE 
SHOULD BE STORED IN R5. 
CALLING SEQUESCE: 

BAL R13,HS:P?T 
***♦*****»**********♦*»»♦♦♦*** 



HSGPRT 



STH 


a5,ISITER3 


BAL 


HIS. PRUT 


XHB 


R5,H5 


STH 


R5,ISITEBB 


BAL 


R15,T3T3RK 


BR 


R13 



iti,***tt*t*tfti,i,n,i,tttttttt 



CHECK BREAK KEY 



'•*************♦*♦♦♦*»♦♦***•»*»***♦***♦*♦♦**♦* 



******************* 
SUBROUTINE TIMEOUT 

THT<; nnilTTWr -JITTC mo t vttr'Xfattn'n t»-r™.'r -r- wm .-*, ^.. ,,.- 

-..-— . . . i .. „ " :t A * .J t^i, xrti-jAnjri mxin i. .1 i r. n n U f I 

ENABLED AT PROCESSOR LEVEL. A TIftER IS SET UP TO 
TIHE OUT THE INTERRUPT WAITING PERIOD AND THE 
CALLING PROGRA"? CAN SPECIFY THE TIHE-O'JT IN UNITS 
OF lOflS EACH 81 SPECIFY THE SUIBER OF JNITS DESIRED 
AT THE HALFWOSD FOLLOWING THE CALLING INSTRUCTICN. 
IF INTERRUPT 13 RECEIVED, EXIT IS »AD£ -^0 AN 
INTERRUPT HASSLES IN THE PROGRAM EXECUTIVE. WHICH 
WILL IS TURN g?ANCH TO LOCATION SET 1? 3f THE 
PROGRAH BEFORi ENTERING TIIEO'JT ROIITISJ. 
IF THE ROUTINE TIMES OUT, IT .ILL PIC' 'Jo 



PRIST THE ERROR 



NUMBER FRON S11 
LOCATION 4(314) 
CALLING SE3CESCE: 
SAL R14,TI!'E0L'T 

DC N NUMa:-:" of io." 



:5-; = 



THE 
AND 



ERROR 
EXIT 



AT 



■;nit5 for i.o. * 



TIHEOUT 



LH 

EPSR 

BAL 

LH 

BAL 

LHI 

EPSa 

LHR 

SSR 

BAL 

B 



80, PSD 

R6,R0 

R15,T5T5R.< 

R0,0(?14) 

R15,TI!!ER 

80,X'30FO* 

R5,P0 

R0,S11 

DE¥,STAT 

R15,ERaD3 

2(R14) 



ENA?LE ISTE??'JPr AT 

PHCCtSSOH LEVEL 

CHEJK BREHK <SY 

PICK UP DESIRED TIME PERIOD 

DELSr Tirr-' (3AS[C 10MS) 

DISABLE INTE?RU?T3 AT 

PROCESSOR L"Y':L 

PICK UP :-:h.-',j= number 



*****»''*i-*********t*tttttti,i,i,-,tti,tttntti,*tttttttttttt**ittttt*it. 



CMT40610 

CMT40620 

CMT40630 

CMT40640 

CMT40650 

CMT40660 

CHT40670 

CMT40680 

CMT40690 

C'IT40700 

CHT40710 

CMT40720 

CHT40730 

CHT40740 

CMT40750 

CBT40760 

CMT40770 

CMT40780 

CKT40790 

CMT40800 

CMT40810 

CMT40820 

CMT40830 

CMT40840 

CMT40850 

CMT40860 

CMT40870 

CMT40880 

CMT40890 

CMT40900 

CMT40910 

CMT40920 

CMT40930 

CMT40940 

CMT40950 

CHT40960 

CI1T40970 

CMT40980 

CMT40990 

CMT41000 

CMT4 1010 

CMT41020 

CMr41030 

CMT41040 

CMTU1050 

CMT41060 

CMT41070 

Cfir41080 

CMT41090 

CMT41 100 

CMT41110 

CHTUII^O 

CHT41130 
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SDSBOOTIRES 



mm * SUBBOUTISE WAIT2 



31BE 
31C0 
31C« 
31C8 
31CA 
31CE 
31 DO 

31Da 

31D6 
31D8 
31DA 
31DC 
31DE 
31E2 
31E6 
31EA 
31EE 
31F2 
31F6 
31FA 
31FE 
3202 
3206 
320A 



9D65 

«210 32A0 
C350 0010 
023D 

D010 3r88 
2U:i 

l»830 0A1E 
0892 
2'4AA 
0798 
0711 
9D65 

«210 32A0 
C3S0 0010 
U230 3206 
itlFO 126A 
Clio 31DC 
C180 31DA 
DE60 3i«7F 
C800 3031 
U1F0 0F82 
tt300 0AE6 
D110 3F88 
030D 



320C 


9D65 




320E 


«210 


32A0 


3212 


022D 




321K 


DO 10 


3F8a 


3218 


2U21 




321A 


4830 


0A1E 


321E 


0B92 




3220 


C8A0 


006« 


322'4 


07B8 




3226 


0711 




3228 


9C65 





0115 
14116 
11117 

aiie 

<»119 
<«120 
l»121 



l»1U5 
1H1»6 
l»m7 

mii8 
m49 

i«150 
4151 
|^^S2 
«153 
1*1 5<t 
1155 
4156 
4157 
4158 
4159 
4160 
4161 
4162 
4163 
4164 
4165 
4166 



THIS aOUTINE WAITS FOR »BTH=1 UNDER TI1ED COSDITION 
IF ROUTINE TIMES OOT OP DETECTS END OF TAPE (SOT), 
THE DEVICE IS RESET, ERRO? KESSAGE IS PRINTED AND 
THE CURRENT TEST IS ABORTHD. 
RETURN ON R13 



ERROR: 01 
******************************** 



t-******** 



t**************** 



4122 WAIT? 

4123 

4124 

4125 

4126 

4127 

4128 

4129 

4130 

4131 

4132 

4133 

4134 

4135 

4136 

4137 

4138 

4139 

4140 

4141 

4142 

4143 

4144 W2EXIT 



HX21 
WX?2 



SSR 

BTC 

THI 

BNZR 

STS 

LIS 

LH 

LHR 

LIS 

XHR 

XHR 

SSR 

BTC 

THI 

BNZ 

BAL 

BXLE 

BXLE 

OC 

LHI 

BAL 

B 

L"! 



DEV.STAT 

1,MTDU 

STAT,X' 10* 

R13 

R1,RSAVE1 

R2,1 

B3,TI!1E 

R9,R2 

RIO, 10 

Re,R8 

B1,R1 

DEV,STAT 

1,«TDU 

STAT,X*10' 

W2EXIT 

R15,TSTBBK 

R1,WX22 

R8,MX21 

DEV, CLEAR 

BO, cor 

H15, ERRDS 

OPTIN 

R1,RSAVE1 



DEVICE 'JNAVAILABLE 
NKTM = 1? 
lES - EXIT 



10HS TIIIN^ LOOP 



TI1E QUI LOOP 

OU? 

N1TN = 1? 

lES EXIT 

CHECK BREAK KEY 



TIHED OUT ON KnrN 
ERROR 01 



BR R13 

***************** 



i**« •***»»****»***•**» ***•♦♦*****< 



r*****»**« 



SUBROUTINE HAIT3 

THIS ROUTINE WAITS FOR EO^ UNDER TIMED CONDITION. 
IT IS CALLED AFTER EVERT READ, tfRITE, BACKSPACE, 
WEOF OR SKIP OPERATION. IF EOK IS NOT SET AFTER 
TIRE OUT, THE ROUTINE RETURNS HITH AN ERROR MESSAGE 
CALLING SEQUENCE: 
BAL R13,HAIT3 



t**** ******************* ******* 



t*****************************' 



MAIT3 



WX31 
WX32 



SSR 

BTC 

BTCB 

STM 

LIS 

LH 

LHR 

LHI 

XHR 

XHS 

SSR 



DEV, STAT 

1,NTDU 

2,B13 

R1,RSAVE1 

R2,1 

B3,TI«E 

R9,R2 

B10, 100 

R8,R8 

R1,R1 

DEV, STAT 



DU? 

EOH 



EXIT 



SET UP TI«E OUT COUNTER 



CfIT41140 
C«T41150 
C«T41 160 
C1«T41 170 
CHT41 130 
CHT41 190 
CHT41200 
CaT41210 
CHT41220 
CHT41230 
Cf!T41240 
C(tT4125C 
CriTO1260 
01141270 
CMT412S0 
CHT41290 
C.>IT41 30 
CHT41 310 
CnT4i 32C 
CMTU1330 
C»lT413'iQ 
C1T41350 
CHT41360 
CBT41370 
CHT41380 
CHT41390 
CIIT41400 
CHT41U10 
C.1T41420 
CBT41430 
CHT41440 
CnT41450 
CI1T41460 
CHT41U70 
CNT41UP0 
CHT41490 
CBT41500 
CF1T41510 
CWT41520 
CHT41530 
CHT41540 
CBT41550 
CHT4156C 
C»1T41570 
CNT41^,B0 
CHT41590 
CMT41600 
CHT41610 
CHT41620 
CHT41f30 
CHT41f 40 
CI1T41650 
CI1T4156C 
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322A 


Ii2^0 


32A0 


322E 


11220 


32«6 


3232 


UIFO 


126A 


3236 


C110 


3228 


323A 


C180 


3226 


323E 


C800 


30311 


32a2 


11F0 


0F82 


32'J6 


D110 


3F8a 


32i»A 


030D 





32UC 


DO 10 


3F88 


3250 


0755 




32S2 


«050 


346A 


32S6 


2U21 




325% 


C830 


7FF0 


325C 


0892 




325E 


C8A0 


OOFF 


3262 


0788 




325!» 


0711 




3265 


9D65 




3263 


1)210 


32A0 


325C 


C350 


0010 


3273 


1*230 


329A 


327a 


C350 


0O2O 


3273 


2335 




327A 


DE60 


3i(7F 


327E: 


aiFO 


126A 


3252 


Clio 


3266 


32^5 


C180 


326« 


328A 


DE60 


31J7F 


32 = Z 


C800 


3032 


3292 


ttlFO 


0F82 


3296 


11300 


0AE6 


329A 


D110 


3F88 


329E 


030D 





1167 
IH68 
1169 
ai70 
i»171 
U172 
4173 
«17tt 
U175 
i»176 
i»177 
1*178 
K179 
1*130 
1*181 
1*182 
4183 
4131* 
4185 
4186 



W3EXIT 



BTC 

BTC 

BAL 

BXiE 

BXLE 

LHI 

BAL 

LM 

BR 



1,5100 

2,W3EXIT 

ai5,TSTBRK 

fl1,WX32 

38,;<X31 

S0,C"04* 

P15,ERRDS 

? 1 .RSAVEI 

S13 



D'J? 

son - EXIT 

CHECK BPKAK KEY 



n*ED COT - ERROR 04 



ERR05 SATURN 



*****♦*♦******»**•»»«***•»**»**».♦»♦«.»»««,«»,, 



WX11 
HX12 



32A0 
32A4 



DE70 347E 
D250 16D2 



4187 WAIT1 

4138 

4189 



4191 

4192 

4193 

4194 

4195 

4196 

4197 

4198 

4199 

4200 

4201 

4202 

4203 

4204 

4205 

4205 

4207 

U208 

4209 

4210 

4211 

4212 

4213 

4214 

4215 

4216 

4217 

4218 

4219 



**************** J 
SUBROUTINE HAITI 

THIS ROfJTIIfE HAIT3 FOE Nf!TS = 1 -J.VDER TIfJED COBDITIOH. 

THE TI1E0JT PERIOD IS DESIGNED TO ACCOMODATE THE 

TIME .ISCESSAHY TO BEHIND THE LONG-iST TAPE. IF THE 

ROUTINE TIMED OUT, THE TEST IS ABORTED WITH AN ERSO" 

MESSAGE . 

RETURN OS R13 

ERROR: 02. 



tlX13 



H1EXIT 



STH 

XHH 

STH 

LIS 

LHI 

LHR 

LHI 

XHR 

XH8 

SSB 

BTC 

THI 

BNZ 

THI 

BZS 

OC 

BAL 

BXLE 

BXLE 

OC 

LHI 

BAL 

B 

LM 

BR 



R1, RSAVEI 
R5,P5 
P5,E0TFLG 
S2, 1 

83,X'7FF0' 
39, ?2 
310,X'FF' 
'3,58 

a 1 , R 1 

DET,STAT 

1,"!rDU 

STAT,X' 10' 

"1FXIT 

3TAT,X*20' 

WX13 

DE/, CLEAR 

315,TSTBRK 

51,WX12 

?9,rfX11 

DF.V, CLEAR 

=0,:'02' 

?15,ERRDS 

OPTIN 

R1, RSAVEI 

?13 



SET UP LOOP COUNTER 



TIM- OUT LOOP 

DU? 

NMTN = 1 ? 

YES tXIT 

EOT? 

EOT - CLivAR DEVICE 
CHECK 3-?KAK KEY 



Ti:Z JUr ON NMT"( 

ERRO? 2 



**♦***«****♦.,.♦*, »»**** ***,,^,^jj,^, 

DEVICE UyAVAILABLE! 

RETURN TO INPUT COMMAND MODE 



************»***»****i 



>•»**».*»*»**.♦♦«,»»,,*,**, 



MTDU 



OC 
STB 



SELCH,STOP 
STAT.EHRSTA 



C.1T41670 

CflT41680 

CMT41690 

CnT41700 

CHr41710 

CNT41720 

CMT41730 

CflT41740 

CMT41750 

CMT41760 

CMT41770 

CMT41780 

CKT41790 

CMT41800 

CMT4lai0 

CHT41820 

CHT41830 

CMT41840 

CMT41850 

CMT41860 

CMT41870 

CMT41880 

CMTai890 

CMT41900 

CMT41910 

CKT41920 

CMT41930 

CMT41940 

CMT41950 

^1141960 

C'1T41970 

CMT41980 

Cf:T41990 

CMT42000 

C»;T42010 

C1T42020 

CT42030 

CMT420"0 

CMT42050 

C!<T42060 

CMT42070 

CKT420B0 

CKT42090 

CKT42100 

C^T42110 

CMT42120 

C>'r42130 

CMT42140 

C*.T42 150 

C?fT'42160 

CMT42170 

CMT421S0 

CMTI12190 
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SUBROUTINES 



32A8 


C850 


34Fa 


32AC 


no 50 


16FE 


32B0 


UIFO 


112A 


32Bi» 


uno 


101E 


32H8 


0755 




32SA 


ao50 


16FE 


3 29^ 


«300 


0AE6 



32C2 U1C0 32D6 
32C6 DE60 348B 
32CA 030E 



32CC moo 32D6 
32D0 DE60 3<»82 
32DI4 030E 



32D6 9D65 

32D8 C350 0010 

32DC 023D 

32DE MIFO 126A 

32E2 2206 



32EU UIDO 32D6 

32E8 DE60 3tt85 

32EC 966B 

32EE 030E 



LHI 


R6,'^SG03 


STH 


R5,ISITERR 


BAL 


B15, PRINT 


BAL 


RET.ERRDSI 


XHR 


R6,R5 


STH 


a5,I3ITEPR 


B 


OPTIN 



SUBROUTINE EDF 

THIS ROUTINE WRITES AN E0~ 
CALLING SEQUENCE 
BAL RIU.EOF 



*************************** 



**************** 



EOF 



BAL 
OC 

BR 



R13,SEM!iITN 

DEV,;<EOF 

31« 



*******<r*1 



SUBROUTINE RKND 

THIS ROUTINE REWINDS THE T».pE 
CALLING SE3UENCE: 
BAL Ria.RWSD 



CHECK FOR S11TS = 1 
«'3ITE AS EOF 
13 EOT - EXIT 



*****»*•< 



»*«***«*****< 



******************* *'* ************************* 



RWND 



BAL 


H13,SEHMTN 


CHECK FOR HM 


TN = 1 


OC 


DE¥,REHD 


SE.(IND 




BB 


Bin 


RETURN 





a220 LHI R6,"^SG03 MAGNETIC TAPE DEVICE UNAVAILABLE 

a22i 

1*222 BAL R15, PRINT PRINT MESSAGE 

U223 BAL RET.ERRDSI PRINT DEVICF « AND STATUS 

U22" 

1225 

4226 

1*227 

4228 

«229 

U230 

1*231 

<*232 

1*233 

(1231* 

1*235 

1*236 

4237 

1*238 

U239 

421*0 

1*241 

4242 

4243 

4244 

4245 

4246 

4247 

4248 

4249 

4250 

4251 

4252 

4253 

4254 

4255 

4256 

4257 

4258 

4259 

4260 

4261 

4262 

4263 

4264 

4255 

4266 

4267 

4268 * 

4269 ♦ SUBROUTINE SDBLK 

4270 * THIS ROUTINE READS A RECORD IN THE RB KODE. THE STARTING 

4271 * £ ENDING ADDRESSES ARE ASSUIED TO BE IN R11 t P12 ' 

4272 * RESPECTIVELY. ' 



t******** 



k****«*****4***4 



»***************4 



i** * *** * 



* SUBROUTINE SENMTM 

* THIS ROUTINE WAITS FOR NRTS=1. 

* RETURNS ON R13 



»*#***************** 



SENMTN 



SSR 

THI 

BNZB 

BAL 

B3 



DEY.STAT 

STAT,X'10' 

R13 

R15,TSrBRK 

SENMTN 



******************************* 



NHTN=17 
TES - RETURN 
CHECK BREAK KEY 
LOO? CHECK 



^*********** 



SUBROUTINE WBTBLK 

THIS ROUTINE WAITS FOR Nf.TS, AND WRITES A RECORD 

USING WB «ODE 

THE STARTING £ ENDING ADDRESSES OF THE RECORD ARE 

STORED IS R11 £ R12 RESPECTIVELY 
***♦*♦**♦*•***********•********•*******♦♦***********♦< 



ft******* 



WRTBLK 



BAL 

OC 

HBR 

BK 



R13,SENHTN 
DEV, WRITE 
DEV,R11 
R14 



CHECK FOR NlfTN = 1 
DEVICE WRITE lODE 
WRITE RECORD BLOCK KODE 
RETURN 



**************♦*»*♦*******•****•***********************•*******< 



CNT42200 
C>1T42210 
CHT4222CI 
CI1T42230 
CHT422UC. 
CHTU22 5C 
CHT4226C 
CliT422-'C 
CHT422aC 
CHT4229C 
C«T4230C 
CNT4231: 
CHT4232: 
C?1T4233 J 
CHT42 ji-Q 
CnT423^C 
CHT423'.D 
CMT4 2 37: 
C«T423=C 
C!1T423i: 
C!1T4?uCC 
CHT42ii1C 
CHT4242C 
CNT42ii30 
Cf(T4242iO 
CKT42450 
CNT4246a 
CHT42470 
CBT42U80 
CHT4249C 
CHT42500 
CHT42510 
CHT42520 
CMT42530 
CMT42540 
CHT42550 
CHT42560 
CNT42570 
C.1T425S0 
CMT42590 
CHT42600 
CnT42610 
CHT42620 
CBT42630 
CHT4264D 
Cr!T42€5C 
CHT426e? 
Cf!T47c7C 
C«T426?0 
CRT4269C 
CMT4270D 
CffT427i& 
C1T4272C1 
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*»•***»♦***♦**»***«***«••».« 



^«********4 



t********4«***««*«**««^^^ 



32FO l»1C0 32D6 

32F!t DE60 3aaa 

32F8 976B 

32FA 030E 



RDBLK 



32FC tt1E0 32D6 
3300 DE60 3!493 
3304 030E 



3 30 6 


HIEO 


32D6 


330A 


D010 


3F33 


330E 


4890 


16C4 


3312 


2139 




3314 


D110 


3F88 


3318 


DF70 


347E 


331C 


987B 




331E 


987C 




3320 


4300 


333C 


3321* 


DE70 


3614 


332« 


DA70 


3FB1 


332C 


D870 


3FB2 


3 330 


DA70 


3F3S 


333« 


D870 


3F36 


3339 


D110 


3F3? 


333C 


9F62 




333E 


2343 




3340 


41F0 


2E12 


33a« 


9E73 




3316 


9D75 




33U8 


2081 




33«A 


DE70 


3 47E 


33ltE 


030E 





4290 
4291 
4292 
4293 
4294 
4295 

(I ■^o c 

4297 

4298 

4299 

4300 

4301 

4302 

4303 

4304 

4305 

4306 

4307 

4308 

4309 

4310 

4311 

4312 

4313 

4314 

4315 

4316 

4317 

4318 

4319 

4320 

4321 

4322 

4323 

4324 

4325 



R13,SE!ff1TN 
DEir.READ 
DEV,R11 
R14 

^ ************* *i 



CHECK FOR H'!TH=1 
DEVICE READ HODE 
READ RECORD 3L0CS HODE 
RETURH 
******************************** 



4273 
4274 
4275 
4276 
4277 
4278 
4279 
4280 
4281 
4282 
4283 
4284 
4285 
4286 
4287 
4288 
4289 * ***•»*******************•*****«♦******.****♦♦.*..,».*»**,, »»»»!,» 



BAL 
OC 
R3H 
BR 
**************** 

SUBROUTINE BKSP 

THIS ROOTIKE WAITS FOR SMTS, AND DOES A 3ACSSPACE 
IT RUST BE NOTED THAT THIS RO'JTINE CAMSGT 3E CALLED 
AT BOT 



k***************d 



>******♦*»******************. 



^************** 



BKSP 



BAL 


RISfSENHTS 


CHECK FOR N.1TN = 1 


OC 


DE¥,BKSPAC 


BACK-SPACE 


BB 


R14 


BET'JRS 



SJBROOTIHE RHSEL 

THIS ROUTINE READS OR .(RITES A RECORD WITH SELCH f^ODE. 
THE STARTISG £ ENDING ADDRESSES OF THE RECORD 
ABE ASSUHED TO BE IN R11 & R12 BESPECTIVELT . 
DEVICE COIHAND IS ASS'JKED TO BE IN R2, AND SELCH 
COSHASD IS ASSUMED TO 3E IN R3. 
RETu n n ON n 1 4 



CHECK FOR NMrS=1 



STOP SELCH 
STARTING ADDRESS 
ENDING ADDRESS 



RWSEL BAL B13,SENKTN 

STH R1,RSAVE1 

LH R9,H0D32 

BNZS RWSEL32 

LM R1,RSA¥E1 

OC SELCH, STOP 

WHR SELCH, R11 

WHR SELCH, R12 

B RWSEL.3 

RWSEL32 OC SELCH, 3T0P2 

HD SELCH, RSAVEI + m 

WH SELCH, RSAVEH-42 

WD SELCH, RSAVE1+45 

WH SELCH, RSAVE1'-46 

LM 31,RSAVE1 
RWS-L.3 oca DEV,S2 

BFFS 4,RiJSEL.A 

BAL R15,FSYNC 
BWSEL.A OCR SELCH, R3 

SSR SELCH, STAT 

BT3S 8,1 

OC SELCH, STOP 

BB R14 

* ♦•***'•*•******»**.***.*.****«**♦».,,,,.,»»»,,»», ,.,^,.^^,,,^,^^ 

* S'JBSOUTINE SELINT , 

THIS ROUTINE TESTS SELCH INTERRUPTS ON REO iJH WRITE. 
ASSONPTIONS: * 

* R1 CONTAINS DEVICE COWHAND * 



DEVICE CO^IMA.'fD 
FAL"E SrNC? 
YES - ABORT TEST 
SELCH GO £ ccny.Mz 

WAIT FOR SELCH IjL: 



C?(T42730 
C'!T42740 
C'!r42750 
C.«r42760 
■:fT42770 
:«T42780 
C'!T42790 

c.-.r42HOo 

"'!T42810 
C!'T42920 
C!!T42a30 
C'»T42840 
C»T42850 
CHT42S50 
C»T42870 
C'T42880 
C^I42390 
CST4 2 900 
C''T42910 
C*T42920 
:NT42930 
C«T42940 
C«.T42950 
:.'T42960 
:»T42970 
C.»T42980 
C'!T42990 
:»T43000 
:'!T43010 
:"'T43020 
:'!T43030 
:"T43040 

:rT4305o 

:fr43060 
;!'.T43070 

:'r4308o 

:'T43090 
:«T43100 

::'.i43iio 
:r?43i20 

:T43130 
r.'.T43140 

:rT43i50 

:'!T43160 
C».T43170 
:'T43180 
:''T43190 
:rT43200 
^•743210 

:''r43220 

';'T43230 
C»'T43?40 

:r:4 32 50 
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3350 


U050 


196A 


3351 


0755 




3356 


H050 


196C 


335A 


«1C0 


31BE 


335E 


U850 


16C4 


3362 


213B 




3364 


DE70 


347E 


3368 


D873 


0000 


336C 


D873 


0004 


3370 


230B 




3372 


DE70 


3614 


3376 


DA73 


0001 


337A 


D873 


0002 


337E 


DA73 


OO05 


3382 


0873 


0006 


3386 


9E61 




3388 


9E72 




338A 


41 EO 


319A 


338E 


01FH 




3390 


DE70 


3476 


3394 


07E5 




3396 


4050 


196A 


339A 


4040 


196C 


339E 


30C 





33A0 


0788 




33A2 


C8E0 


33C0 


33A6 


40=0 


196C 


33AA 


41 CO 


31BE 


3 3AE 


DE60 


34eA 


33B2 


DE60 


3489 


33B6 


9Eei 




33B8 


4 no 


319A 


33BC 


07t0 




33BE 


230A 




3 3C0 


D350 


16D2 


33C4 


C550 


004C 


33C8 


2335 





4326 * B2 CONTAINS SELCH COHBAND * CI'T43260 

1,327 ♦ R3 COKTAINS STABTIHG ADDRESS OF BEAD 03 HPITE LIKTTS • ?!!!'*?^Z? 

4328 

4329 

4330 

4331 

4332 



E4 CONTAINS DEVICE IHTBRSUPT RETURN ADDRESS * CMT43280 

R5 COKTAINS SELCH ISTERRUPT RETURS ADDRESS * C??143290 

B11 CONTAINS THE TIREOUT ERROR NUMBER * C1T43300 

RETURN ON R12 * C-T43310 

,,,»««««««•«**>»***«**♦*»*«*•*******••»♦*»**»«*••«**»*»********* CI1T4 3 320 



4333 SEMNT STH B5,DEVIHT STORE ?TS ADSS FOP S?lCil INTERRUPT C1T43330 

H331, XHR B5,R5 RESET RETURN ADDRESS Cr.T43340 

1J335 STH R5,DEVINT+2 FOR DEVI-F INTERRUPT CrT43350 

U336 EAi R13,WAIT2 WAIT FOP N!1TN = 1 C?IT43360 

4337 LH R5,N0D32 C1T43370 

4338 BMZS XH0D32 CHT4338Q 
0339 OC SELCH, STOP STOP SELCH CMT43?90 

1.340 WH SELCH, 0(R3) SET U? S'^LCH TRANSFER LIIIITS C?!T43400 

1.341 HH SELCH, 4(R3) CMT43410 

4342 BS XDET C!1T43420 

4343 X!10D32 OC SELCH, ST0P2 STOP WirH EXTENDED ADDRESS C.1T43'i30 
tt344 WD SELCH, 1(R3) C1T43'iltO 
4345 HH SELCH, 2<P3) CXT434S0 
U346 WD SELCH, 5(R3) CriT43U50 
tt347 WH SELCH, 6(R3) C''T43M70 
4348 XDEV OCR DEY,R1 OUTPUT DEVICE C03MAND C!1T43490 
(,31,9 OCR SELCH, R2 OUTPUT SELCH CO-iNAHD CHT43490 
i,3S0 BAL R14, TIMEOUT WAIT FDR SELCH INTERRUPT Cf!T43500 
«351 DC H'5O0' C1T43510 

4352 SELIRT1 OC SELCH, STOP C!!T43520 

4353 XHR B5,R5 RESET RETURN ADDRESS CMT43530 
435U STH R5,DEVINT FOR SELCH INTERRUPT CBT43540 
„356 STH B4,DEVINT+2 STORE DEVICE INTERRUPT RETURN ADRS CnT43550 
U356 BR S12 RETURN CMT43560 

4357 * *»********»**•****•****♦**»•*****************************'****** C!1T43570 

4358 * SUBROUTINE SKIPINT * CBT43580 
1,359 * THIS ROUTINE TESTS SKIP INTERRUPTS ON FORWARD OR * C!1T43590 
4360 * BACKWARD SKIPS. * CKT43600 
1,361 * ASSUHPTIONS: * CBT43610 
4362 * R1 CONTAINS THS SKIP C0!1>IAHD * CBT43620 
a363 ♦ R11 CONTAINS THE TIKEOUT ERROR HUS3ER * CRT43630 
4364 • RETURN ON R12 * C!1T43640 
1,355 * **,«»»»«««**««««***«*♦•*»»»*»***»*••♦••**********»♦**•*»*•••**** CHT43650 
4366 SKIPINT XHB B8,R8 Cf!T43660 
1,367 LHI R5,RTN11 SET UP RETURN ADDRESS CST43670 

4368 STH R5,DEVINT+2 CnT43680 

4369 SKIPINT1 BAL B13,WAIT2 CST43690 

4370 OC DEV,DISARW DISAP-? DEVICE C».T43700 

4371 OC DEV,ENABL C?1T43710 

4372 OCR DEV,R1 OUTPUT SKIP COHHASD C«T43720 

4373 BAL R14, TIMEOUT C!'TM3730 

4374 DC H*2000' CNT437M0 

4375 BS STAII CnT43750 

4376 RTN11 LB STAT,INTSTA GET ISTESEUPT STATUS CMT43760 

4377 CLHI STAr,X*4C' CKT43770 

4378 BES STA11 C-TU3780 
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33CA 


caoo 


3037 


33CE 


U3C0 


1FB2 


33D2 


2681 




33D« 


C5?0 


0002 


33D3 


U230 


33AA 


33DC 


03CC 





33DE 


tito 


32D6 


33E2 


DE60 


3486 


33E6 


030E 




3 3E8 


mDO 


32D6 


33EC 


DE60 


3i»87 


33F0 


03CE 





33F6 
33FA 



D2E0 1502 
030E 



33FC U1C0 32«C 

31*00 DF60 3432 

3aoa mto 324c 

3108 03CE 



340A 


C3€0 


FFFE 


340E 


033F 




2i»10 


030C 




3«12 


C5eo 


0009 


3416 


033F 




3U18 


C560 


0007 


3mc 


033F 




3u1E 


3CC 




3420 


C560 


0003 


3424 


028F 




3426 


03CC 




3423 


C560 


0100 


3U2C 


02eF 





4379 




IrJI 


ao,c'Q7' 


4380 




a 


STAEfiR 


4381 


STA11 


AIS 


Ra,i 


4382 




ClHI 


38,2 


4383 




3T 


3KIPIST1 


4384 




3? 


312 



E??:0? 7 



2 EOF'S? 



4385 * ***»***••******»»*************»♦.»♦•«•*♦**«***»♦♦♦♦*»*,,,»»«,,»» 

4386 * 

4387 * SUBHOUTISSS SKEW S SKRV ♦ 
■•^Sa ♦ THIS ROUTINE SKIPS A FILE PASS AN EOF 

4389 * ****♦**••»*»*•»**♦»***********»♦•***»»***»*»***«♦»,♦♦»»,»»»»,«», 

4390 • » 

4391 SKFH SAL R13,SEN(1TN CHECK FOR SHTN = 1 
"392 CC DEy,SKIPF SKIP EOF FORWARD 

4393 25 314 

4394 SKBV 3*1 S13,SENMTN CHECK FOR N'«TN = 1 



4395 
4396 
4397 
4398 
4399 
4400 
4401 
4402 
4403 
4404 
4405 
4406 
4407 
4408 

4409 ♦ 

4410 REHIHD 
4411 

4412 
4413 
4414 
4415 
4416 
4417 

4418 * 

4419 ZESONE 
4420 

4421 

4422 TRACKS 

4423 

4424 

4425 

4426 

4427 ."!ODES 

4428 

4429 

4430 X256 

4431 



GC 
53 



SKIP EOF REVERSE 



DEV.SKIPR 

R14 

*****************•»•♦•♦•♦****♦*♦******#*#*«»*♦»*** 

* SUBRODTUE EBRDSA SAVES THE ECROS SUS (RO) AID THE STATUS 

* BITE (STAT) FOR USE BY ERRDS * 



SAVE ERROR NUM 
SA/E STATUS BYTE 



ERRDSA irH R0,KKRNO 

STB STAT.ERRSTA 
hi SET 

* *»**•*•♦*••»♦*»******♦**»***»**.».»*♦,♦♦»»»»*»,,, ,«»j,,»,,»^^,^^ 

* SUBROUTINE REMIND WAITS FOR NffT!« = 1, PEWISDS THE TAPE, Ala 

* WAITS FO? !l«T!t = 1 AGAIN. » 



53 



R13,iIAIT1 
DEV,aEWD 
ai3,WAIT1 
RET 



* *****! 



• Air FOR NP!TN = 1 

?£w:n3 tape 
wait for n!1'"n = 1 

SET'JRN 



k^'fr*******************, 



t ♦ * ♦ * ♦ ^ 



* ?:.iriNES TO CHECK VALID :?TION VALUES 



►******♦*••»****♦* 



t**»*«***, ***«***» 



T-:i R6,X'FFFE' 

~Z' R15 

;? S12 

CLHI R6,9 

3l? 815 

CLHI R6,7 

li' B15 

5= R12 

CLHI B6,3 

3LS R15 

flP R12 

CLHI R6,X'100' 

BLR R15 



?EJ."Cr 
.VINE OR 



SO "lOHE THAN 2 



"f3 rORE TMAH X'FF' 



C.1T43790 

CST43900 

C.1T43810 

C"1T43320 

CMT43830 

C,1T43340 

C»T43850 

C:«T43S60 

CKT43870 

CKT438S0 

C.1T4 38 90 

CKT43900 

CHT43910 

C»!T43920 

CST43930 

CMT43940 

CMT43950 

C.1T43960 

Cf1T43970 

C«T43980 

C><T43990 

C«T44000 

CMT4(»010 

C(fT44020 

C!1T44030 

C^T440UO 

CMT44050 

CMT4UC6C 

C1T44070 

C«.I4u030 

C1T44090 

CMT44100 

C<1T44110 

C1T44120 

CKT44130 

Cr.T4ii1iiC 

C.tT44150 

C>!T44ieo 

C1T4ii17C 

CfiT441?3 

C«T41i190 

C1T4U2CC 

C?lT44i10 

C1T4422J 

CMT44230 

C1T44240 

C"T4(i250 

CrT4U25C 

C'?r44:7c 

C.1T4U2H0 

C!1T44 300 
CrT4U 3 10 
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SUBRODimES 

CHTaa320 
CMTIMSSO 

LESS THAN 2 - REJECT CHTUUSMO 

CMTit«350 

XD MORE THAN X'UOO" CflTUISeO 

CMTUU37C 

C(1Tl»<l380 

. CKTUU390 

c«T4«mo 

CMTUUI420 

»D "ORE THAN 5 CMT^U'iJO 

C.nT144UU0 
CHTUtl^O 

MO »ORE THAS H C.1T«Mi460 

c.iTaai»7o 
C«!TaaU3C 
CMTUuugo 

C«TI41500 
mt51 BR R15 CHTi»ttS10 

141452 * ****«*♦•*•********♦*••••♦♦•••*•♦*»•*♦****»*****•*»*•***•*♦•**•»* CMTtt520 



3a2E 


030C 




31130 


C560 


0002 


3U30 


028C 




31436 


2301 




3U39 


i(560 


3612 


343C 


028F 




3«3E 


030C 




3«<»0 


0866 




3«i*2 


2335 




3uua 


0756 




3tt16 


2207 




1i»a8 


C560 


0006 


3UUC 


02aF 




311UE 


030C 




3US0 


C560 


0005 


3151* 


03ec 




3!»56 


D260 


1966 


315A 


D260 


1967 


3<l5E 


D2eo 


1968 


3162 


030F 





I»lt32 




BR 


B12 


«i*33 


BrN2 


CLHI 


R6,2 


4U3') 




BLR 


H12 


i»a35 




BS 


X3FF 


i»U36 


X3rE 


CLH 


R6,X400 


l»(l37 




BLR 


R15 


att38 




BR 


R12 


li439 


DEVCHK 


LHR 


86, R6 


UUMO 




BZS 


X3FF 


414141 




XHR 


R5,P5 


ima2 




BS 


X3FF 


14443 


SCOP 


CLHI 


36,6 


4444 




BLR 


R15 


4445 




BH 


R12 


4446 


LEVEL 


CLHI 


R6,5 


4447 




BNLR 


R12 


4448 




STB 


B6,INTL/L 


4449 




STB 


R6,INTLVL+1 


4450 




STB 


H6.INTLVL+2 
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3454 


FFfF 


3l»65 


OOFF 


3i»63 


0000 


3*6A 


0000 


3U5C 


0000 


3i*5£ 


0000 


3tt70 


0000 


3«72 


0000 


3i*7<t 


0000 


347S 


0000 


3*73 


0000 


31*7* 


2929 


347C 


6A29 


347; 


0820 




0000 347F 


3490 


50 70 




0000 3481 


3432 


3811 




0000 3483 


3434 


2122 




0000 3485 


3446 


2313 




OOOO 3487 


3438 


8040 




0000 3489 


3uaA 


CO 30 




0000 348B 


349C 


OOFF 


343£ 


OOFF 


3430 


OOFF 


3432 


OOFF 


3434 


0102 


3496 


0408 


3433 


1020 


3 49 A 


4080 


343C 


7FBF 


343£ 


DFEF 


3>i}:> 


F7FB 


31^.2 


FDFE 


34A4 


AA55 


34A5 


A A 55 


34A3 


AA55 


34AA 


AA5S 


34AC 


FOGF 


34AE 


FOOF 


3433 


FOOF 


3432 


FOOF 


3454 


0000 


3436 


0D16 


3^58 


01C2 


343* 


0506 



4454 


* ******•***•**»•••********»*********• 


4455 


* 


CO S3 


TAST3 




a456 


* ***♦*•****♦*•«*•*#************♦**•*• 


4457 


* 








4458 


HASK 


DC 


I'FFFF' 




4459 


NBYTE 


DC 


X'FF' 




4460 


EE 


DC 


3 




4461 


EOTFLG 


DC 


J 




4462 


ERRFLG 


DC 


J 




4463 


MODFLG 


DC 


7 




4464 


BTTCNT 


DC 


3 




4465 


NXTDEV 


DC 


3 




4466 


DEV2 


DC 







4467 


WLHS 


DC 


: 




4468 


DEVONE 


DC 


3 




4469 


CRCC 


DC 


I*2929' 




4470 


CRCCS 


DC 


I'S»29" 




4471 


STOP 


DC 


X'0820' 




4472 


CLEAR 


EQU 


3T0P+1 




4473 


GOWRT 


DC 


I '50 70* 




4474 


GORD 


EQO 


-O'JRT+I 




4475 


REHD 


DC 


X'3911' 




4476 


BKSPAC 


EQU 


?EiJD+1 




4477 


READ 


DC 


I'2122' 




4478 


WRITE 


EQU 


?EAD+1 




4479 


SKIPF 


DC 


T'2313' 




4480 


SKIPR 


EQU 


;kipf+i 




4481 


DSA3L 


DC 


I' 80 40' 




4482 


ENABL 


E3U 


3SA3L+1 




4483 


DISABH 


DC 


I'C330' 




4434 


WEOF 


EQU 


DISARN+1 




4435 


HDATA 


DC 


I'03FF',X' 


'OOFF' 


:.486 




DC 


i'0OFF*,X' 


'OOFF' 


4437 




DC 


T'0102',)(' 


'0408' 


4488 




DC 


I' 1020', X' 


'4080* 


:i439 




DC 


/•T3F',X' 


'DFEF' 


4490 




DC 


I'f7F3',X' 


'FDFE' 


4491 




DC 


/•AA55'.X' 


'AA55' 


4492 




DC 


^' AA55",X' 


'AA55' 


4493 




DC 


X'?TOF',X' 


'FOOF' 


4494 




DC 


X'F0OF',X' 


'FOOF' 


4495 




DC 


3 




4496 


SQMASK 


DC 


X'DD16',X' 


'0102' ,X' 0506' 



r************«**»**ft*i 



r*********** 



C?!T44540 
CrT44550 
CMT44560 
C«T44570 
CST44580 
C:'iT44590 
C1T44600 
CMT44610 
CST44620 
CHT44630 
C;!T44640 
C."1? 44650 
CaT44660 
CHT44670 
C!(T44680 
CMT44690 
CRT44700 
C,1T44710 
CMT44720 
CMT44730 
C«T44740 
CHT44750 
CKT44760 
C«T44770 
CI1T44730 
CHT44790 
CHT44800 
CHT44810 
CMT44820 
CMT44830 
CMT44840 
C!1T44350 

CKT44860 

CMT44870 

CffT44880 

Ci«r4U390 

C»T44900 

CMT449.10 

CKT44920 

C?!T4uq30 

C'<T4UT40 

C!1T44950 

cfTwugeo 



COHHON BAGNETIC TAPE TEST PBOGHAf! 06-172R03A13 



PAGE 96 13:07!<»5 OS/ie/?? 



34BC 


UilUI 


5111 


2020 


2020 


1197 


nr,Q?,fh 


DC 


stcn 


2020 


1111 


5111 










3l»CA 


ODOO 














3ttCC 


5752 


1951 


5115 


1F20 


1198 


HSG018 


DC 


3l»Di» 


2020 


5215 


1111 










3'«DA 


ODOO 














3f*DC 


52«5 


131F 


5615 


52 59 


1199 


KSGJ2 


DC 


3UE!( 


20^5 


1F,53 


5513 


1315 








3UEC 


5353 


1655 


1C20 










3!IF2 


OAOD 














3«Fi4 


nuns 


5619 


1315 


201F 


1500 


HS';CI3 


DC 


3UFC 


16116 


2D1C 


191L 


1520 








3 SOU 


OCCO 














3506 


(151? 


5120 






1501 


flSG-31 


DC 


350A 


ODOO 














350C 


151F 


1620 






1502 


HSG01A 


DC 


3510 


ODCO 














3512 


mill 


1120 


1352 


1320 


150 3 


HSG05 


DC 


351A 


1311 


5011 


1319 


511F 








3522 


5220 


111E 


1120 


1558 








35 2 A 


1513 


5551 


1520 










3530 


ODCO 














3532 


1352 


1320 


1318 


1152 


1501 


HSG05 


DC 


353A 


20 3P 


2020 


2020 


2020 








35U2 


ODOO 














35411 


1352 


1320 


1318 


1152 


1505 


MSG07 


DC 


351*0 


2015 


5850 


5127 


1120 








355U 


3D20 


2020 


2020 


2C20 








355C 


5215 


1111 


203D 


2020 








35611 


20 20 


2020 












3568 


ODCO 














356A 


IDIF 


1115 


202C 




1506 


«SG08 


DC 


3570 


ODOO 














3572 


151E 


5115 


5220 


1111 


1507 


HSG09 


DC 


357A 


5111 


3A20 












357E 


ODOO 














3580 


5155 


521F 


2011 


1556 


1508 


MSG10 


DC 


3538 


1913 


1520 


1F16 


162D 








3590 


1C19 


1E15 


201D 


1F1D 








3598 


151E 


5111 


5219 


1C59 








35A0 


2E20 














35A2 


OCOO 














35AI1 


1552 


521F 


523A 


2052 


1509 


LARBEL 


DC 


35AC 


1511 


1120 


1255 


1616 








35B4 


1552 


2019 


1E20 


5115 








35BC 


5351 


20 50 


521F 


1752 








35C11 


111D 














35C6 


ODOO 








1510 




DC 


35C9 


1552 


521F 


523A 


2057 


1511 


LABELL 


DC 


35D0 


5219 


5115 


2012 


5516 








35D8 


1615 


5220 


191E 


2051 








35E0 


1553 


5120 


5052 


Url/ 








35E8 


5211 


1D20 












35EC 


OCOO 








1512 




DC 


35ER 


1552 


521F 


523A 


2052 


1513 


LAA3EL 


DC 



C'DATA DATA',X'DOO' 

C'HPITTEN READ',X'D00* 

C'BKCOVESr UNSUCCESSFOL'.X'ji.OD' 

C'DiiVICE OFF-LINE', X'DOO' 

C EOT' ,X'DO0' 
C'EOF' ,X'DOO' 
C'ADD CRC CAPACirOR AND EX E:UTE' ,X ' DOO ' 



C'CRC CHAR 



',X'DOO' 



C'CRC CHAB EXPT"D = , HEAD = '/X'COO' 



C'KODE ',X'000' 
C'EMTER DATA: ' ,X'DOO* 

C'ruas DEVICE OFF-LISE MOHESTARILT.'.X'DOO' 



C'ERHOR: READ BUFFER IN TEST PSOGEA.I' 



X'DOO' 

C'ERROR: HRITE BUFFER IN TEST PR0GRA1' 



X'DOO' 

C'ESROR: READ SUFFER IN WRITE BtlFfER' 



CRT11970 
CST11980 
C'Tl1990 

C«T15000 

C1T15010 
:«T15020 
C«T15C30 

C1T15010 
C'!T15050 



C1I15060 
C!1T15070 

C'TIEOSO 



CXT15090 



.:«T15100 
C«T15110 



C<'T15120 

:iT15130 
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35F6 aS^I »«20 4255 a6«6 

35FE H552 20W9 UE20 5752 

3606 l»95it tt520 4255 4646 

350E 4552 

3610 ODOO 4514 CC X'DOO' CST45140 

4515 * ALL lEiT PBOGRAH STORAGE AREA CnT45150 

"♦^IS * C.rT45160 

•♦^l? * C'!T45170 

4518 X400 DC X'401' r>lT45190 

4519 ST0P2 3C X'4800' Ci"T45190 

4520 ALIGN 8 CMT45200 

4521 WLIH CCT CHT45210 

4522 DCI C!1T4 = 220 

4523 BLIH DCI CMT45230 

4524 DCT C(rr45240- 

4525 RSa¥32 ECY C,«"T4';250 

4526 HADDRS DCY CHT45260 

4527 BADDES DCT C>(T4'i270 

4528 BEBTOP DCT CMT45280 

4529 LAST DC X'3FFF' CNT4'=290 

4530 LNZB EQO *-1 C«1T45300 

4531 WBUFF CS X'400' CI1T45310 

4532 RBOFF DS X'402' C?1T4532C 

4533 TEHP ES 2 TElPORAPr STORAGE LOC CHT45330 

4534 ALIGW « r.«n.(.t3i.Q 

4535 OPTBUF DS 6 OPTIOS IHPUT BUFFER C1T45350 

4536 lOSAVE 23 2 C.'!T45360 

4537 INTSAV DS 64 REGISTERS CN EXT/IS!? INTERRUPT C1T45370 

4538 SAVERTN DS 2 CHT45380 
1*539 Q^'. X'3FO0' C.'1T45390 

4540 PSMSAVE ECY 0,0 CHT45400 

4541 BSAVE D3 128 C!1T45410 



3612 


0401 




3614 


4800 




3618 






3618 


0000 


0000 


361C 


0000 


0000 


3620 


0000 


0000 


3624 


0000 


0000 


3628 


0000 


0000 


362C 


0000 


0000 


3630 


0000 


0000 


3634 


0000 


0000 


3638 


3FFF 






0000 


3639 


363A 






3A3A 






3E3C 






3E40 






3E40 






3E46 






3E48 






3E88 






3E8A 






3F00 


0000 


0000 


3F04 


0000 


0000 


3F08 






?F88 






3FC8 







4542 RSAVE1 CS 64 

4543 EBRSAVE DS 64 



C!1T45ii20 
C^.T45^3C 



4544 * C.'!T45U40 
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CHKSUH/B17 PUNCHEF 



«008 


2400 




UOOA 


9510 




MOOC 


CfllO 


OAOO 


1»010 


2421 




11012 


C830 


3639 


4015 


2440 




0018 


D351 


0000 


401C 


0745 




aoiE 


C110 


4018 


<«022 


D240 


0099 


11026 


C810 


0080 


t02A 


9E21 




U02C 


9444 




l«02E 


9824 




K030 


9411 




1032 


9501 




«03lt 


D360 


007A 


4038 


DF.60 


007B 


403C 


9D60 




403E 


2081 




UOUO 


41 to 


4082 


401* l» 


9411 




4046 


C8 30 


OOCF 


404A 


DA61 


0000 


404E 


9D60 




4050 


2081 




4052 


Clio 


404A 


4056 


41F0 


4088 


40SA 


D340 


0099 


405E 


C810 


OAOO 


4062 


C830 


3639 


4066 


D351 


0000 


406A 


0745 




406C 


9A65 




406E 


9401 




4070 


9820 




4072 


9D60 




4074 


2081 




4076 


Clio 


4066 


407A 


41F0 


4082 


407E 


4300 


4026 



4S46 


**CHKSU« 






4547 


* START 


OF CHKSUB FILE 


4546 


* 






4549 


* 






4550 


Ir 






4551 


SCHKSUM 


LIS 


ao,o 


4552 




EPSfi 


R1,R0 


4553 


* 






4554 




LDAI 


RI.DRIGINI 


4555 




LIS 


R2,1 


4556 




LDAI 


H3,LNZB 


4557 




LIS 


R4,0 


4558 


SGES 


L8 


R5,3(R1) 


4559 




XAR 


!?4,R5 


4560 




BXLE 


R1,SGEN 


4561 




STB 


R4,HN+3 


4562 


* 






4563 


STAFF 


LHI 


H1,X'O08O' 


4564 




OCR 


R2,R1 


4565 




EXBR 


R4,R4 


4566 




HHR 


82, S4 


4567 




EXBR 


B1,R1 


4568 




EPSR 


R0,R1 


4570 


SPUKCH 


LB 


P6,X'7A' 


4 571 




CC 


B6,X'7B* 


4572 




SSR 


R6,R0 


4573 




BTBS 


8.1 


4 57 4 




BAL 


R15,STAPL 


4575 




EXBR 


R1,R1 


4676 




LHI 


R3,X'CF' 


4577 


SPNCHI 


HD 


R6,0(B1) 


4578 




SSR 


R6,R0 


4579 




BTBS 


8,1 


4580 




BXLE 


R1,SPKCH1 


4581 




BAL 


B15,STAPL1 


4582 


* 






4583 




LB 


B4,HN+3 


4584 




LDAI 


R1,0RIGI»1 


4585 




LDAI 


R3,LHZB 


4586 


SPHCH2 


LB 


R5,0(R1) 


4587 




XAR 


R4,R5 


4588 




WDR 


R6,R5 


4589 




EXBR 


BO, HI 


4590 




WHR 


S2,R0 


4591 




SSR 


R6,R0 


4592 




BT3S 


8,1 


4593 




BXLE 


R1,5PHCH2 


4594 




BAL 


R15,$TAFL 


4595 




B 


STAPE 



POSCH H17 TAPE WITH CHECKSUM 
SELECT SEG. SET ■) 

START 

IMC^EHEST 

FINAL 

CHECKSUM BYTE 



CHECKSU<! BYTE TO BOOT LOADER 

DL^PLAY : NORKAL "iODE 

CHECKSUM BYTE TO D1 
HALT PROCESSOR. 



GET BOUTDV (PUNCH) ADDRESS. 
START TAPE PUNCH 



PUNCH LEADER 
(HI) = X'0080' 

PUNCH BOOT LOADER 



PUNCH ONE-FOLD GAP. 

GET CHEC'<SUf1 BITE 
(NORMALLY X'AOO* ) 

PUNCH PROGRAN 



DATA ADDRESS TO DISPLAY, 



DISPLAY CHECKSUH, HALT PROCESSOR. 



CMT4546C 
CHT45470 
CKT45480 
C>1T45490 
:'!T45500 
CST45510 
"1T4552C 
C^T4E53C 
C«T4554C 
CrT45550 
:JfTa5550 
C'!T45'^70 
:j!T4558C 
C1T45590 
C'fT45600 
CMT45610 
C1T45f20 
:«T45630 
C"1T45f MO 
C!fT45>350 
C?1T45660 
C'T45670 
CST45680 



CHT45700 
CrT45710 
01145720 
:MT45730 
CfT45740 
CnT45750 
CBT45760 
CKT45770 
CKT45780 
CnT45790 
CI1T45800 
CHT45910 
CKT45B2C 
CBT45830 
CI'T45S40 
CHT45850 
CKTU586C 
Cf1TI5870 
C!1tI?S80 
CMT45690 
CHT45900 
CNT45910 
C>!T45920 
CrT45930 
CnT 4 59 40 
C>fT4595C 



COMHON MAGNETIC TAPE TKST PROGRA'5 05-172?:3A13 
CHfrSUK/H17 prjNCHER 



iOS2 


C800 


0100 


i;B6 


2303 




aj38 


C800 


0055 


i?8C 


2701 




SDSE 


032F 




1390 


2a30 




»:32 


9A63 




5-;9i; 


9D6S 




4036 


20 81 




«j98 


2206 





.:9A 



«»597 


STAPL 


LHI 


30,256 


4598 




BS 


STAPLP 


1*599 


STAPL1 


LHI 


SO, 85 


U600 


STAPLP 


SIS 


R0,1 


U601 




BS?? 


R15 


U602 




LIS 


S3,0 


1*503 




HDr 


R6,R3 


4604 




5SS 


R6,R8 


4605 




BT33 


3,1 


4606 




BS 


STAPLP 


4607 


* 






4608 




ESD 





PAGE 99 13:07:45 08/16/73 

ro PUNCH BLANK LEADF» 
TO PUNCH 1-FOLD GAP 

?'5SZH BUSK. FRAHE 
CO.iri.HUE. 



C.1T45970 
CXT45330 

C'!T45990 
C.tT46C0C 
CMT46r-10 
CMT4'5C'2u 
C!'T46030 
Ci1T46040 
C>1T4605C 
C«T46060 
CMT45070 
C?!T4609a 



COBBON BAGMETIC TAPE TEST PBOGFAS 06- 1 72H03I11 3 

CH»:SDH/B17 PUNCHEP 
A5SEBSLED ET CAL 03-066B07-00 {32-BrT) 
START OPTIONS: T=16,FRLST 



PAGE 100 1J:07:il& OR/16/79 



NO CAl 


EEROHS 


NO CAi 


WARNINGS 


2 PASSES 




SCHK3U1 


0000 


11008 


3o£N 


0000 


(4018 


SPNCH1 


0000 


UOHA 


3PNCH2 


0000 


14066 


SPUSCH 


0000 


ao3« 


$TAPE 


0000 


14026 


STAPL 


0000 


14082 


STAPH 


0000 


tt088 


STAPLP 


0000 


I408C 


ABORT 


0000 


0E98 


ABSTOP 


0000 


«09A 


ADC 


0000 


0002 


ADE 


0000 


0C2C 


ADVANCE 


0000 


2914 4 


AF 


0000 


1590 


A«SG 


0000 


17B1» 


ASCIDEV 


0000 


1760 


ASCIDFy2 


0000 


1770 


ASCILOC 


0000 


17814 


ASCIPSH 


0000 


177A 


ASCISTA 


0000 


1768 


BKSP 


0000 


32FC 


fiKSPAC 


0000 


3tt83 


BLKHOD 


0000 


2922 


BOOT 


0000 


0088 


BRKRTI* 


0000 


12DC 


BSKVECT 


0000 


16FC 


BSET 


0000 


2F38 


BSFIL 


0000 


29AC 


B3FIL7 


0000 


283U 


BSPACE 


0000 


2BEC 


BSPFIl 


0000 


2116 


PTESTNO 


0000 


170C 


BHFCHA16 


0000 


1676 


BUFCHA32 


0000 


169a 


C300ADE 


0000 


0A18 


CAR2ND 


0000 


16F0 


CABRD 


0000 


leEtt 


CARH02S 


0000 


16Fa 


CHAR 


0000 


0004 


CHECNU* 


0000 


0C2A 



14551* 
14553* 
44577* 
4536* 
14570* 
14563* 
145714 
14581 
4593 
5?2* 

137 
1313 

14U3* 

314U* 

1080 

2U9 

726 

706 

7143 

740 

716 

3162 

177 3 

4476* 

3133 

103 

964 

995 

1910 

2335 

3064* 

1819 

2349* 

519 
1380* 
1379 

154* 
1444* 
1436* 
1451* 

n f > * 

2896 
3939 
355* 



4560 
4530 
4593 

14595 
4594 
4599* 
4600* 



179 
1328 

3183 

1292* 

1494* 

1481* 

1485* 

1489* 

1487* 

730 
3184 
2069 

3135* 

106* 

997 

999 

2010 

3169 

3065 

1927 

2369 

537 

1389* 



2898 
3993 



4597* 



4606 



193 
1339 



3199 



1483* 
4286* 
2331 



1002* 
1456* 
2178 
3182* 



554 



2904 
3998 



1086 



3203 



1 161 



1177 



1136 



1198 



1205 



1227 



1274 



1288 



1294 



2352 



2549 



2309 2562 



576 



2371 



2688 



2698 



612 



2691 



2863 



2711 



1464* 



2937 



3039 



3064 



3062 3069 



3781* 



3109 



3425 



3944 



4287 



3424* 



2927 

4002 



3235 
4026 



3237 
40 5 2 



3447 
4054 



34/49 
4356 



3693 
4058 



3698 
4060 



3705 
4061 



3707 
406 3 



3734 



COSMOS HASJIETIC TAPE TEST PR03?AH 06-172S03A13 
CHKSCI1/H17 PUNCHEB 



PAGE 101 13:07:u5 03/16/79 



CHEKI1 


0000 


1A68 


CHEKI2 


0000 


1A0A 


CHKDEL 


0000 


2EeA 


CHKEND 


0000 


2B9A 


CHKEKD1 


0000 


2B96 


CHKEOF 


0000 


27F8 


CIGCHK 


0000 


2<»DC 


CLEAR 


0000 


aiTF 


CLIF2SD 


0000 


15EC 


CLIFADR 


0000 


OAHl 


CLIFBD 


0000 


16E0 


CLRDEV 


0000 


2B26 


CHPBE 


0000 


18D6 


COHBYT 


0000 


2E10 


CONESR 


0000 


2EA0 


COSH 


0000 


15A6 


C0MH1 


0000 


15AE 


C0MP1 


0000 


1A52 


COfiPAR 


0000 


2E3« 


COHSET 


0000 


OFCC 


CON 


0000 


191*2 


C0H2ND 


0000 


16E8 


COSADS 


0000 


16DA 


CONEIT 


0000 


1A9A 


CCSE.VBD 


0000 


16E9 


CON EOF 


0000 


2A70 


COMRD 


0000 


16DC 


C0MBa2S 


0000 


16F« 


CONSIX 


0000 


1A8E 


conn 


0000 


lAtlE 


C0NT3 


0000 


223A 


C0NT1 


0000 


23CE 


COIiTIS 


0000 


17E6 


COMaRT 


0000 


16DD 


coasT 


0000 


170E 


CR3UF 


0000 


2F62 


CRBUF1 


0000 


2F76 


CRCC 


0000 


3U7A 


CRCCS 


0000 


347C 


CPCEES 


0000 


27ttC 


CaCTST 


0000 


257A 


CHCZEE 


0000 


263S 


CRLF 


0000 


11A2 


CRT2SD 


0000 


16EA 


CRTRD 


0000 


16DE 


CRTH02S 


0000 


16F5 


DATA 


0000 


1906 


DATFIL 


0000 


3104 


DE 


0000 


3168 


CECTAB 


0000 


1712 


DEFTESrS 


0000 


1952 


DEV 


0000 


0006 



1621* 
1587 
3701* 
2031* 
1775 
30a5 
2696* 
1672 
1'*'i2* 
152* 
1K3f»* 
3310 
1521** 
3639* 
3699 
1285 
1302* 
1612 
ie2U 
676 
U27 
21i» 
220 
1632 
10t5 
30i»9 
221 
208 
1633* 
1609 
2i»18 
2576 
589 
1056 
551 
2381 
3810* 
2897 
2908 
2899 
2736 
2832 
237 
381*5 
lUitl* 
1U33* 

lana* 

1528* 
It013* 
1705 
1U68* 
'»51 
95* 



1590* 

3747 

2725 

2062 

3018* 

2699 

1580 



3314* 

2414 

3700 

3717* 

1296 

1375 

1615* 

1932 

684* 

1535* 

223 

944 

1638* 

1440* 

3254* 

222 

226 

1613* 
2420* 
2530* 
1504* 
1373 

565 
3548 
3812 
2910 
2912 
2922* 
2790* 
2842* 

244 
3 84 7 



453 
1667 



3167 

2230 



1432* 

567 
3803* 

2911 
2917 



308 
3848 



3973 

4022 4035 

3036 3975 



1538* 
1668 



3374* 
2272 



3918 
2693 



2310 3276 3233 



3075 
3746 



1300* 1319 



3921 
2716 



3295 



2324 



3314 



2333 2918 3373* 3409 



41ii3 



4202 



4206 



4472* 



2060 2416 2708 2714 3077 36='5* 



224 1356 1372 1439* 1440 

965 1030 1042 1109 1189 1355 1357 1429' 



3259 
941 1031 1358 1431* 1432 
227 1036 1045 1447* 



1465* 



2915 
4470* 



3 50 
4013 



3978 



1659 



4469* 



372 



387 



414 



432 



627 



383' 



953 



374? 



UHfiQ* 



1570 



1672 



1674 



16- 



1677 



1678 



1630 



1711 



1773 



COMHOU HilGHKTIC TAPE TEST PBOCBAM 06-172R03»13 



PUGE 102 13:07:15 03/16/79 



CHKSUH/H17 PUNCHER 



CEV2 


0000 


3U7U 


DEVADP 


0000 


17FE 


CEVCHN 


0000 


3UU0 


DEVICE 


0000 


1fl2E 


CEVINT 


0000 


196A 


DEVMSG 


0000 


175C 


CEVHSG2 


0000 


176C 


DEVONE 


0000 


31178 


EEVSADB 


0000 


1970 


CISAPN 


0000 


31I8A 


DBPLIN 


0000 


2FA0 


DSMBL 


0000 


31(88 


DUBLIN 


0000 


2FDU 


DUINT 


0000 


188E 


DUdP 


0000 


2F90 


OUSTEE 


0000 


22B8 


DV2ADR 


0000 


180A 


ECHO 


0000 


12314 


ECH01 


0000 


1230 


ECHBTN 


0000 


12UA 


ENABL 


0000 


JUB'i 


END7 


0000 


2892 


ENDCOHP 


0000 


2E9it 


ENDFIL 


0000 


26AA 


ENDFIL7 


0000 


287E 


ENDTST3 


0000 


2262 


ENDTST6 


0000 


2738 


EOF 


0000 


32C2 


EOFER 


0000 


3008 


E0FER01 


0000 


1C82 


EOFER02 


oooo 


1CC0 


EOFER 12 


0000 


1D96 


E0FES21 


0000 


1E90 


EOFLOP 


0000 


1F3E 


EOFHRK 


0000 


1C5« 


E0F1RK1 


0000 


1Dl»6 


E0T7 


0000 


296E 


FOTFI.G 


0000 


3U6A 



1777 


1830 


1834 


1941 


2029 


2037 


2043 


2050 


2069 


2078 


2146 


2155 


2167 


2191 


2192 


2205 


2214 


2215 


2216 


2229 


2236 


2237 


2238 


2271 


2280 


2293 


2291 


2295 


2297 


2302 


2310 


2320 


2329 


2330 


2331 


2350 


2351 


2352 


2371 


2378 


2380 


2394 


2395 


2395 


2401 


2433 


2474 


2475 


2476 


2574 


2600 


2685 


2691 


2 7011 


2820 


2822 


2329 


2836 


2837 


2339 


2840 


2847 


2843 


2849 


2874 


2881 


2937 


2943 


3058 


3062 


3069 


3071 


30 3 3 


3096 


3093 


3108 


3110 


3112 


3158 


3176 


3220 


3225 


3243 


3255 


3267 


3269 


3276 


3279 


3233 


3284 


3288 


3295 


331U 


3327 


3358 


3359 


3376 


3379 


3330 


3403 


3405 


3425 


3427 


3473 


351U 


3515 


3513 


3527 


3576 


3577 


3580 


3612 


3619 


3642 


36 4 9 


3668 


3669 


3874 


3944 


4110 


4122 


4133 


4140 


4156 


4166 


4196 


4202 


4206 


4235 


4 24 4 


11251 


1265 


4266 


4276 


4277 


4237 


4313 


43J3 


4370 


4371 


4372 


4392 


4 39 5 


1(M11 


























17011 


2834 


2839 


3 361 


3374 


3379 


4466* 














1506* 


1667 


3358 






















1506 


1507 


4439* 






















1510* 


273J 
























1223 


1542* 


2154 


2166 


2190 


2204 


2213 


22^5 


2247 


2256 


228 5 


2327 


2347 


23')6 


2458 


2472 


3140 


3332 


3333 


4333 


4335 


4354 


4355 


4363 






732 


1480* 
























703 


1434* 
























2836 


2345 


4468* 






















1115 


1217 


1543* 


1660 


1668 


1675 


2146 














1670 


1673 


2167 


2191 


2214 


2229 


2236 


2271 


2230 


2329 


2350 


2380 


2433 


2i«7« 


3327 


4370 


4483* 


4494 


















3832* 


3844 
























2192 


4431* 


4432 






















3812 


3847* 
























1513* 


2143 
























1827 


1935 


2419 


2571 


3080 


3326* 
















21*53 


2467 


2468* 






















1507* 


1674 


2837 


2347 


3376 


















937 


941* 


1168 






















935 


938* 
























9113 


948* 
























2155 


2205 


2215 


2237 


2297 


2330 


2351 


2396 


2475 


4371 


4482* 






3086 


3090* 


3111 


3116 




















3708 


3713* 
























2873* 


2933 
























3067 


3084* 


3094 


3114 




















21123 


2433* 
























29111* 


2945 
























31U3 


3163 


3254 


3315 


4234* 


















3875 


3877 


3880* 






















1779 


1849* 
























1836 


1365* 
























19«3 


1965* 
























2052 


2075* 
























2183 


2189* 
























1832 


1834* 
























1939 


1941* 
























3162* 


3179 
























1699 


1852 


1952 


2066 


2594 


2720 


2728 


2934 


3103 


3 3 34 


3402 


3492 


352; 


3655 


4189 


4461* 























COKHOK MAGNETIC TAPE TEST PROGPAB 05-172?03M3 PAGE 133 13:37!U5 08/16/79 

CHKSnM/MI? PUNCH?? 



EOTSSG 


0000 


17AII 


ERR 


0000 


0F4C 


ERR1 


0000 


0FE4 


ERBALL 


0000 


0F9A 


EBBCOK 


0000 


0Fa2 


ERRC0M1 


0000 


OFCE 


ERRCOH? 


0000 


0F59 


ERRD 


0000 


0F6A 


ERRD1 


0000 


OFEE 


ERRDEV 


0000 


16D0 


ERRDS 


0000 


0F82 


ERRDS1 


0000 


101E 


ERRDSA 


0000 


33F2 


EBRFLG 


0000 


3iieC 


ERRLVL 


0000 


17A0 


ERSHSG 


0000 


1736 


ERR»!SG2 


0000 


300E 


ERRNO 


0000 


173E 


ERROUT 


0000 


2C7E 


ERSPL1 


0000 


lOim 


ERRS1 


0000 


1006 


rogciy r 


rtrtrtrt 


^rr«a 


FRRSTA 


0000 


16D2 


ETESTNO 


0000 


173C 


FALSTN 


0000 


1B66 


FILES 


0000 


186A 


FILLWBUF 


0000 


25BA 


FIRST 


0000 


16C2 


FORFAtJLT 


0000 


1=79 


F0UND1 


0000 


0C3E 


FP 


0000 


157E 


FSTEOF 


0000 


2BK9 


FSTNC 


0000 


2E12 


GAPDAT 


0000 


2516 


GDHEX 


0000 


317!i 


GSNFIL 


0000 


1C1? 


GEHFTL1 


0000 


1C06 


GEHFIL1A 


0000 


1CFE 


GENFIL2 


0000 


1CC6 


GENFILU 


0000 


237S 


GENFIL6 


0000 


269tt 


GEMFIL7 


0000 


280E 


GETCHH 


0000 


121C 


GETDATA 


0000 


30A6 


GFimi 


0000 


237C 


30RD 


0000 


3«81 


GOtfRT 


0000 


3U80 


GTDAT2 


0000 


30C8 


HA1 


0000 


1BCE 


HA2 


0000 


1BFC 



592 


1492* 




















61*6* 


130 4 




















648 


658 


664 


669 


697* 














667* 


1252 


1262 


3672 
















647 


657 


663 


668 


676* 














680 


686* 




















649* 


660 


656 


672 
















655* 


2930 


3710 


3721 
















659 


704* 




















705 


725 


1417* 


1661 


1669 


1677 


2840 


2849 


3359 


3330 


3663 


661* 


1713 


2033 


2228 


2368 


2469 


2682 


2707 


2713 


2724 


2726 


2939 


2946 


3913 


3431 


3880 


3893 


4111 


4142 


4173 


4203 




665 


670 


72«* 


4223 
















662 


4402* 




















1701 


3714 


3717 


3720 


4462* 














1261 


1491* 




















697 


1475* 




















1857 


1861 


1957 


1961 


2071 


2031 


2317 


2413 


2566 


2595 


2606 


3893* 






















513 


655 


1251 


1259 


1284 


1293 


1312 


1325 


1477* 


3671 


4402 


3489 


3494* 


3563 


















671 


738* 


1335 


















714* 






















< U£ 


653 


S56 


CCA 


C C ^ 


4543* 












715 


729 


1419* 


3494 


3496 


3659 


4219 


4403 








512 


545 


1476* 


















1663 


1671 


1679 


1711* 
















1515* 


1914 


3035 


















2808* 


2812 




















318 


325 


329 


1406* 
















1082 


1272* 




















490 


496 


~c r* 


















1093 


1277* 




















1771 


1855 


193? 


1955 


2008 


2023 


2193 


2545 


. 25°3 


2663 


2689 


3052 


3400* 




















3614 


3665* 


4315 


















2711* 


2715 




















4055 


4061* 




















1815* 


1828 


1?56 


1359 
















1923* 


1956 


19 = 5 


















1919 


1921* 




















2014* 


2018 


2073 


















2557* 


2590 




















2867* 


2872 


29tl 


















3054* 


3056 




















259 


409 


752 


765 


930* 


3234 


3987 


3996 








3986* 


3992 


4C12 


















2558* 


2572 


2S?S 


















2498 


3201 


32»1 


3559 


4474* 














2490 


3171 


34J5 


4473* 


4474 














3996* 


4001 




















1793* 






















1806* 























2730 



3105 3M7 



2802 lii 



COdllON HAGRETIC TAPE IKST PRCGS^M 06-172R03A13 PAGE 10^ 13:07!«5 08/16/79 

CHKSUf1/«17 PUHCHEP 

HALT9 0000 0F02 611 617* 62« 691 

HB1 0000 26EU 2889* 

HB2 0000 2478 2669* 

HEXASC 0000 1102 5H3 707 717 727 731 7m 7U4 821* 2905 2925 2928 

HEXASC1 0000 HOC 825* 832 

HEXCHK 0000 3153 3991 0000 4052* 

HEXTA3 0000 171C 335 75H 812 828 1260 1463* 

HX1 0000 1BDE 1798* 

HX2 0000 1C0E 1812* 

HX3 0000 2488 2573* 

HX4 0000 26F6 2895* 

Hn 0000 1SE6 1797 1800* 

HY2 0000 1C15 1811 1814* 

HT3 0000 2490 2672 2675* 

Hr4 0000 25FE 2994 2897* 

II 0000 '1504 1075 1311* 

II32 0000 15DA 1315 1319* 

IHPTOP 0000 OOOOR 

IfCR 0000 16D5 603 1422* 

ISDATA 0000 307E 3050 3127 3973* 

I>(EMD 0000 314C 3990 4034* 

IXEHC1 0000 310E 3999 4016* 

I!(ESD2 0000 3120 4011 4021* 

im 0000 1AC8 1607 1622 1642 1652* 

I!«IT 0000 19A6 483 1560* 

ISIT.1 0000 1932 1565* 1566 

ISITPET 0000 0D9A 484* 1706 

ISTDEV 0000 1630 1159 1196 1213 1416* 1417 

ISTER31 0000 227C 2441 2446* 

IHTLEY 0000 1822 1509* 1695 

IHTLVL 0000 1966 1234 1541* 1696 1697 4443 4449 4450 

I!ITl¥L« 0000 178A 1264 1490* 

ISTPSW 0000 16C6 1195 1214 1408* 

I^TSAV 0000 3E48 1180 1187 1212 1244 4537* 

IKTSTA 0000 16D2 1160 1197 1418* 1419 2222 2243 2252 2261 2304 2335 2358 2403 2446 

2451 2463 2482 4376 

10 0000 0A10 160* 197 198 206 207 213 219 480 969 1003 1022 1055 1126 

1171 1350 1361 1366 1367 1371 

10. OKI 0000 0A76 201 20 3* 

I0.0K2 0000 0A7C 204 206* 

I0.0K3 0000 0A9A 211 216* 

I03AVE 0000 3t46 481 890 1006 1025 1053 4536* 

I8GDAT 0000 1882 1517* 2709 

ISITERR 0000 16FE 506 629 650 681 862 954 958 1265 1305 1457* 3731 4075 407= 

4221 4225 

jaKKI 0000 2474 2667* 2675 

jaNK2 0000 24A2 2681* 2683 

1C3IIIT 0000 16fA 1169 1455* 3137 3305 

KBIHTO 0000 1414 1111 1124* 1190 

rBIflTOO 0000 1tt4E im5* 1149 

KBISTOA 0000 1452 1139 1146* 

KBISTOE OOOO 143C 1128 1137* 

KalNTOC 0000 142E 1132* 1135 



-C'HON HA3ICETIC TAPE TEST PSOGRAM 06-172303*13 
r«ICSiI!!/!!17 PBSCHER 



PAGE 105 13:37;a5 08/16/79 



KBL-JTI 


0000 


Hl5C 


KBIST2 


0000 


ia86 


KBI!IT3 


0000 


1«70 


KBBD 


OODO 


132E 


KBKD1 


0000 


lauo 


KBSEAD 


0003 


1312 


KEEP1 


0000 


0DA6 


KEEP10 


0000 


0F10 


KEEP101 


0000 


0F36 


KEEP2 


0000 


ODB« 


KEEP3 


0000 


ODEC 


KEEPa 


0000 


0DF6 


KEEP4 1 


0000 


ODFA 


KEE?e2 


0000 


0E10 


KEE?»3 


0000 


0E16 


KEEPS 


0000 


0E1A 


KEEPS 


0000 


OEUE 


KEEP7 


0000 


0E7E 


KEEP71 


0000 


0E8C 


KEEP9 


0000 


0EC8 


KEEP91 


0000 


0ED6 


LA ABEL 


0000 


35EE 


LABBEL 


0000 


35Aa 


LABSLI 


0000 


35CB 


LADC 


0000 


0001 


lAsr 


0000 


3638 


LCOaE 


0000 


1360 


LCOB-32 


0000 


13DC 


I.C05532A 


0000 


HIOU 


LDiiT 


0000 


00C8 


LEADER 


0000 


00A2 


LE/iL 


0000 


3U50 


LItK 


0000 


OOOF 



LNZ3 


0000 


3639 


LOAD 


0000 


OOAC 


LCC133 


0000 


1780 


L00X1 


0000 


0B6a 


LOOK? 


0000 


0868 


L00K3 


0000 


0B78 


LOOK^ 


0000 


OCFC 


LOOKS* 


0000 


0C10 


LOOXS 


0000 


0121* 


LOOiCl'P 


0000 


0B60 


LOOP 


0000 


17DA 


LOOPS 5 K 


0000 


2AFC 


LPAD"* 


0000 


0A16 



1125 


1150* 
























1163 


1167* 
























11«5 


1152 


1158* 






















lOtl* 


3138 
























lOlU 


1046* 
























930 


1030* 
























i»89* 


492 
























587 


625* 


959 






















636* 


638 
























It95* 


498 
























513* 


590 


615 






















524* 


578 


614 






















525* 


536 
























529 


533* 
























532 


535* 
























531 


534 


537* 






















552* 


571 
























569 


572* 
























573 


576* 
























595 


598* 
























602* 


690 
























16U3 


U513* 
























16*6 


4509* 
























IK"? 


451 1 * 
























555 


























158 3 


1619 


4529* 






















23-* 


514 


1062* 






















1088 


1104* 
























1115* 


1120 
























129* 


132 
























113* 


117 
























1539 


4445* 
























93* 
333 
394 
5U6 

6ai 

7^6 

911 

1 163 

107 


216 
336 
399 
548 
654 
799 
932 
1252 
4530* 


234 
350 
U02 
570 
679 
317 
949 
1262 
4556 


237 

360 
408 
575 
693 
334 
353 
1266 
4535 


244 
365 
409 
584 
707 
3 39 
954 
1304 


248 
363 
414 
588 
709 
856 
956 
1305 


250 
. 371 
415 
591 
717 
366 
964 
1644 


252 
372 
420 
5?3 
719 
•)72 
1016 

ieu7 


308 
375 
479 
623 
727 
8 74 
1013 
1650 


311 
383 
482 
627 
731 
875 
1026 


315 
393 
483 
530 
733 
H77 
104? 


323 
38 6 
514 
633 
741 
385 
1099 


329 
387 
543 
636 
744 
894 
1116 


113* 


126 
























11138* 


























235* 


292 
























237* 


296 
























290 


293* 
























301 


425* 
























U28 


431* 
























«37 


439* 
























273 


275 


284* 






















559 


1503* 
























3136 


3301* 
























153* 
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LPEOF 


ooos 


1FC6 


IPHRT 


0000 


16F2 


LKFIFTEN 


0003 


2CA6 


LVIEPR 


0000 


1E5M 


mCHSUR 


000 


166E 


HUSK 


000? 


316U 


MAXTST 


0000 


1950 


HEMTCP 


0000 


363« 


HESAGK 


0000 


1AA8 


«FSSAG 


0000 


1A32 


SESSAGE 


0000 


1ABC 


fllCBOEUS 


OOCD 


0A1A 


I1IN2 


0000 


SUSO 


MISnATCH 


0000 


2CFA 


nr\ 


0000 


15DE 


fi!i16 


0000 


161U 


!1»,32 


0000 


15FE 


MMCO'fl 


0000 


1620 


HHCOSU 


0000 


162E 


!1«C012 


0000 


16«2 


I1HC0N2A 


0000 


1650 


KI1C0113 


0000 


166A 


KH 


0000 


0096 


ROD32 


0000 


16CM 


SODE 


0000 


133A 


NODES 


0000 


3«20 


10DFLG 


0000 


3U6E 


H0VDAT1 


0000 


3126 


MOVDATA 


0000 


3122 


MOV DTI 


0000 


1BC0 


H0VDT2 


0000 


1BC2 


H0TDT3 


0000 


1BC6 


HREAD 


0000 


17C2 


NREADC 


0000 


16E6 


flSET 


0000 


3038 


HSG01A 


0000 


3UBC 


HSG01B 


0000 


34CC 


HSG02 


0000 


3I4DC 


BSG03 


0000 


3UFU 


BSGOi: 


0000 


3506 


HSG04A 


0000 


350C 


HSG05 


0000 


3512 


HSG06 


0000 


3532 


KSG07 


0000 


35ml 


!1SG08 


0000 


3 56 A 


I1SG09 


0000 


3572 


«3G10 


0000 


3580 


MSGPPT 


0000 


3186 


HTDU 


0000 


32A0 


HTESTSO 


0000 


1732 


KTNESF 


0000 


253<4 



2221 

1U35* 

3508* 

1235 

1373* 

1691 

«57 
<*528* 
1616 
1589 
1620 

155* 
151H 
3629 
1078 
13ai* 
1330 
1350* 
1352 
135U 

136 3 
1365 

110* 
181 

137 8 
1511* 
1511 
1702 
a023* 
K022* 
1789* 
1790* 
1791* 

37« 
1129 
39m 
3725 
3727 
39U9 
. «220 
2269 
3232 
2875 
2902 
2922 
3711 
3980 
2156 
2932 
2227 
3519 
511 
2722* 



222U 

3510 

1253* 

1501 

1731 

1537* 

1635 
16<4';* 
16!i J* 

93a 
m»33* 
363U 
1323* 
13u2 
133-* 

1355* 

136T 

136f.* 

1369 

1)561 

180 
1i»07* 
1652 
i|!<27* 
2231 
Ii03'> 
M033 
1803 
1801 
1843 

38 2 
1153 
3916 
UU97* 
tt«9B* 
lt«99* 

asoo* 

3165 
U502* 
4503* 
2906 
2926 
3723 
a507* 
fSOS* 
3712 
2265 
3581 
512 
2729 



223U* 



1502 
1918 



16d1 



3637 



1375* 
a5S3 
356 
1568 
3913 

2382 



385 
1137* 
3922* 



3261 



U50«* 
2931 

3a9« 



372a 

2306 

3650 

Stttt 



2275 



2666 



16U3* 



3640 



759 
3601 
3917 

3131 



4501* 



4505* 
3924 



3726 
Z360 
4123 
1474* 



257^ 



2793 2S51 



3 3 23 



3736 



4003 



4453* 



3549" 



76? 

3625 



3221 



1501* 1570 



1087 

4300 



3303 



1623 



1 162 

4337 



3476 



1624 



1178 



35'^'3 



1 199 



3919 



122d 



3922 



1295 



4463* 



1314 



1329 



450J* 



3723 
2405 
4134 



3395 
2462 
4157 



3350 
2330 
4167 



3931 
3226 
4197 



4075* 

3244 

4213* 
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NHBITE 


0000 


17CE 


N3TTE 


0000 


31166 


NEXTST 


0000 


1710 


NISE 


0000 


1332 


HOBBK 


0000 


1492 


JiOBSP 


0000 


22Cl» 


N0BSP7 


0000 


289E 


SOhITE 


0000 


1S5E 


NOCOH 


0000 


2868 


N0DMP1 


0000 


1C3<» 


NODUKP 


0000 


1Ctt6 


NOERHSG 


0000 


1752 


NOEHR 


0000 


1700 


NOHEX 


0000 


317C 


NOBSG 


0000 


17F2 


NOPRIOT 


0000 


2722 


NOBEAD 


0000 


223E 


NORIMT 


0000 


1EF0 


HORN 


0000 


1601* 


NOBHAL 


0000 


2itt2 


NORHBET 


0000 


2C8C 


NOTEST 


0000 


2570 


NXTDEV 


0000 


3472 


NXTN0D1 


0000 


1CF0 


NXTf10D3 


0000 


1F2C 


NXTBODU 


0000 


234A 


NXTB007 


0000 


27DC 


OLOC 


0000 


16CE 


OPBSP 


0000 


1S32 


OPRD 


0000 


139A 


OPSKIP 


0000 


1B3E 


OPSH 


0000 


16CA 


CPSM32 


0000 


16C8 


OPT 


0000 


17P6 


0PT555 


0000 


0C9E 


OPTBUF 


0003 


3EU0 


OPTCKD 


0000 


OBAU 


0PTCMD1 


0000 


0EA6 


0PTCMD10 


0000 


OCA 2 


OPTCMDII 


0000 


0CD2 


0PTC.1D12 


0000 


OCEO 


0PTCnD2 


0000 


0BC8 


0PTCHD3 


0000 


3BCE 


OPTCHDt 


0000 


oaD<» 


0PTCHD5 


0000 


0PE6 


0PTC.1D6 


0000 


0EF6 


0PTCHD7 


0000 


0C02 


CPTCJ1D71 


0000 


0C1I1 


OPTCHDB 


0000 


0C22 


0PTCBD9 


OOOQ 


OCAO 


OPTEHD 


0000 


192A 


0PTEND2 


0000 


192A 



359 


367 


370 


1383 


1395 


1502* 


1592 1625 162; 


1802 


1921 


2176 


2663 


2677 


2825 


2884 3032 3329 


3757 


3783 


3841 


4459* 








520 


524 


540 


1466* 








1687 


1690* 












1171* 


3304 












2322 


2471* 












3060 


309 3* 












151l»* 


2174 


3030 










3076 


3078* 


3118 










1934 


1936* 












1826 


1828* 












574 


1479* 












550 


572 


682 


1458* 


2788 






4053 


4057 


4059 


4063* 








860 


1505* 












2901 


2908* 


2933 










2373 


2407 


2421* 










2149 


2165* 


246E 


2470 








609 


1421* 












2604 


2611 


2614* 










3490 


3498* 


3564 










2781 


2784 


2787* 










3356 


3378 


tiU55* 










1915* 


1948 












2181* 


2436 












2544* 


2579 












3038 


3040* 


3092 










742 


1166 


1205 


1237 


1301 


1333 


1414* 3667 


1521* 


2321 


3059 










1519* 


2184 


2372 


3046 


3066 


3393 




1522* 


2422 












739 


1165 


1204 


1300 


1337 


1412* 


3666 


1183 


1411* 












284 


310 


351 


339 


1499* 






357 


391* 












255 


2 56 


257 


270 


278 


239 


4535* 


309* 














310* 


314 












393* 


397 












409* 


413 












405 


414* 












320* 


346 












322* 


341 












324* 














326 


329* 












331 


334* 












323 


337* 












342* 














307 


350* 












390 


392* 


418 










1532* 














417 


1531* 













3333 



3342 



3441 



3587 
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OPTIS 


0000 


oAre 


CPTINI 


0000 


OAFA 


OPTION 


0000 


192A 


CPTRTN 


0000 


op;e 


OPTVAL 


0000 


loss 


OPTVALO 


0000 


1C5E 


CPTVAL1 


0000 


107D 


0PTVA12 


0000 


lO'-C 


0PTVAL3 


0000 


109A 


OPTV«m 


0000 


10A2 


CPTYAL5 


0000 


1CB6 


0PTYAL6 


0000 


IDS? 


OPTVAL? 


0000 


1D5E 


0PTVAL8 


0000 


10».0 


OPiJEOF 


0000 


lecA 


OPWHT 


0000 


ie.»6 


0RIGIN1 


0000 


OAOO 


CRI'^IK2 


0000 


OAOU 


OPIGINS 


0000 


oa:8 


OBIGINU 


0000 


OAOC 


CTC. 


0000 


11?F. 


OTC.O 


0000 


11C2 


0TC.1 


0000 


111)6 


OTC.t 


QOOO 


UFA 


OUTO 


0000 


1212 


0UT1 


0000 


1216 


OUTCHB 


0000 


11P0 


O0TCHB2 


0000 


11EC 


OOTDWP 


0000 


2F3fc 


PI 


0000 


113C 


P2 


0000 


1162 


P3 


0000 


116E 


PASFLG 


0000 


16D6 


PASFLG2 


0000 


16Ei9 


PASLADR 


0000 


0A12 


PAUSF 


0000 


121A 


PAUSED 


0000 


2A2A 


PAUSE1 


OQOO 


2A32 


PREOT 


0000 


2976 


PRIHD 


0000 


2EDA 


PRIST 


0000 


112A 


P8IHT2 


0000 


117C 


PRIIIT3 


0000 


113C 


PRmT3B 


0000 


11911 


PRIMT5 


0000 


1198 


PROCOO 


0000 


1PAF 


PROC01 


0000 


1C26 


PR0C02 


0000 


1C6C 


PROC03 


0000 


1C39 


PR0C11 


0000 


Itlii 



213* 
MM* 
21»5* 
300 
306* 
a33 
753* 
75«* 
755 
765* 
757 
760 
762 
769 
771 
1523* 
1520* 
106 
136* 
139* 
1«0* 
893* 
89«* 
897 

gin* 

895 

839 

250 

aOR 

892 

3831* 

840 

856* 

SHU 

228 

20 9 

151* 

893 

3232* 

323«* 

316U* 

3718 

239 

16«« 

861 

868 

87it* 

BI42 

1782* 

1819* 

1839* 

18214* 

1927* 



264 

3236 

1(21 

iOH 

U60 
777 
757 
759* 
773 
77a* 
763* 
7614* 
772* 
773* 
227U 
2182 
13 5* 



907 

899 

901* 

919 

912 

923 

252 

1120 

900 
381*6 

81*3* 

858 

860* 

982 
1010 

898 
3250 
3239 
3229 
3732* 

5I»8 
161*7 

865* 

871* 

863 
181*5 
1860 
1867 
18611 
1960 



1*11 
3263 

959 
1533* 

751* 



915 
9 2 5* 
311 
636 
905 



1033 
136H 



910 



321*7 

575 

1650 

870 

886 

875* 
1851 



«30 
3317 
1251* 



30tt8 

301*1* 3087 

11551* «58i* 



908 



917 

316 
813 
909* 



1043 
11*25' 

926* 



59 3 
2157 



i»m 

31*11* 
1267 



1*55 
3673 
1307 



1*75 
1*11*3 



59« 

1*209 



6t2 
U226 



996 



1388 



1U02 



1651 



92!** 

328 
356 



1138 



333 

865 



1353 



336 
872 



14211* 



350 
874 



355 
985 



375 
8 8 9* 



380 
3738 



394 

3839 



399 

4064 



630 
2270 



698 
2876 



709 
2907 



719 
3165 



733 

3233 



746 
3262 



838* 
4076 



956 
4222 



1266 
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P90C12 


0000 


1D25 


1932* 


196U 
























PR0C13 


0000 


IDS? 


19U6* 


1967 
























PR0C21 


0000 


ii;d4 


2018* 


207« 
























PROC22 


0000 


1E62 


20fi0* 


208« 
























PR0C2a 


0000 


1E52 


2055* 


2077 
























PR0CU1 


0000 


2 34 A 


2562* 


2599 
























PR0C42 


0000 


23A6 


2569* 


2609 


2616 






















PR0C43 


0000 


2333 


2570 


2572* 
























PH0C51 


0000 


2i»E« 


2698* 


2727 
























PR0C52 


0000 


2«FS 


2703* 


2731 
























PaOC6 1 


0000 


26A2 


2871* 


29'«2 
























PR0C62 


0000 


25?0 


2888* 


29U7 
























PRREAD 


0000 


0C6a 


373* 


378 
























PRWRITE 


0000 


0C32 


358* 


363 
























PSW 


0000 


0A22 


166* 


2169 


2195 


3141 


4102 


















PSM2 


0000 


0A29 


167* 


177 


135 


246 


552 


563 


651 


677 


1095 


1210 


130 2 


3172 




PSMHSG 


0000 


1776 


745 


1486* 
























PSHSAVE 


0000 


3FflO 


10l» 


1105 


asuo* 






















PURETOP 


0000 


OOOIH 




























QMSG 


0000 


17P2 


955 


1t93* 
























2UESTN 


0000 


1250 


253 


953* 
























RO 


0000 


0003 


76* 


213 


21« 


217 


235 


235 


254 


255 


256 


257 


269 


270 


325 








366 


369 


381 


384 


401 


451 


452 


453 


454 


430 


431 


487 


491 








h9 3 


497 


500 


501 


505 


5J5 


506 


507 


50 3 


509 


518 


518 


519 








520 


525 


526 


527 


530 


533 


541 


549 


543 


550 


551 


553 


564 








565 


566 


567 


568 


572 


604 


505 


635 


60 6 


607 


608 


612 


613 








625 


625 


626 


631 


639 


546 


649 


549 


6 50 


652 


653 


655 


656 








661 


667 


678 


704 


714 


724 


728 


738 


791 


796 


798 


804 


3G5 








816 


821 


322 


333 


838 


345 


847 


360 


862 


376 


883 


890 


331 








893 


896 


902 


914 


920 


321 


331 


334 


935 


933 


939 


957 


957 








958 


963 


965 


966 


973 


374 


986 


937 


992 


993 


999 


1000 


1333 








1009 


1022 


1Q23 


1024 


1030 


1031 


1032 


1336 


1041 


104 2 


1045 


1046 


1 j'^'' 








1055 


1056 


1365 


1055 


1066 


1070 


1072 


13''4 


1111 


1112 


1126 


1127 


lit 1 








1165 


1180 


1137 


1201 


1204 


1212 


1242 


1244 


1302 


130 3 


1 344 


1345 


1 3-4'; 








1560 


1565 


1712 


2032 


2225 


2265 


2316 


2341 


2357 


2412 


2440 


2445 


2456 








2«68 


2565 


2601 


2635 


2612 


2722 


2342 


2945 


2843 


2879 


2303 


2923 


2323 








3131 


3132 


3!«12 


3430 


3486 


3513 


3523 


3560 


3575 


3532 


3647 


356 5 


36 6 5 








3666 


3670 


3671 


3709 


3719 


3723 


3732 


3737 


3733 


3743 


3757 


3761 


376': 








3837 


3863 


3370 


3372 


4102 


4133 


4105 


4 107 


4108 


-103 


4141 


4172 


->2:7 








U379 


tU02 


4551 


4552 


4568 


4572 


4578 


4539 


4590 


^591 


4537 


4599 


^6 3? 


R1 


0000 


OOC 


77* 


106 


118 


119 


121 


126 


175 


175 


176 


13 3 


183 


184 


1 ; 5 








188 


197 


200 


20 2 


206 


217 


213 


219 


221 


223 


225 


226 


2+7 








258 


259 


267 


270 


276 


273 


279 


234 


2hi 


231 


293 


300 


42 = 








1*27 


136 


ana 


488 


489 


434 


495 


510 


511 


512 


513 


538 


552 








553 


556 


557 


563 


564 


5-^6 


577 


536 


583 


593 


599 


600 


■=;i 








607 


610 


517 


518 


619 


677 


678 


63 6 


637 


633 


689 


705 


715 








725 


729 


739 


742 


792 


79 = 


S?5 


341 


34 = 


343 


896 


398 


3:2 








90 3 


90« 


306 


910 


913 


314 


316 


318 


921 


324 


366 


957 


37 1 








975 


977 


978 


984 


987 


932 


993 


1306 


1Q37 


1003 


1003 


1012 


1313 








1015 


1015 


1017 


1023 


1024 


1025 


1343 


1052 


1053 


1054 


1055 


1056 


1 f 2 








1062 


1066 


1067 


1068 


1070 


1071 


1074 


13 7 5 


1097 


110 9 


1110 


1 110 


1 1 1; 








1113 


1113 


1115 


1119 


1166 


1232 


1205 


1211 


1343 


1341 


1366 


1368 


1373 








1371 


1372 


1373 


1381 


1382 


138 3 


1390 


1394 


1395 


1561 


1566 


1739 


1790 



COMHOH HAGHETIC TAPE TEST PBOSSAJ! 06-172fiO3A13 PAGF 110 13:07:45 08/16/79 

CHKSU»/H17 PUMCHER 



ISttO 18lt2 1915 1916 2013 2018 202l> 202U 2025 20l»7 2055 2061 

2«i30 2«89 21*97 2803 2813 2904 292« 2927 3053 3056 3063 3065 

3Q<51 3172 3173 3175 3307 3482 3U83 3195 3U98 3503 3517 3526 

^557 3568 3579 3601* 3605 3508 36^9 3610 3611 3623 3633 3636 

3685 3713 3713 37m 3715 3717 3730 3730 3731 3781 3792 3803 

3826 38'»9 3979 tOI" '»126 4132 4132 4133 4144 4159 4165 4165 

4174 4187 4195 4195 4204 4210 4299 4302 4312 4343 4372 4552 

4553 4560 4563 456'- 4567 4567 4563 4575 4575 4577 4530 4584 



1901 
2427 
3072 
3556 
3639 
3815 
4170 
45 54 

4636 4589 4593 ' , ^,^, 

RIO 0000 OOOA 36- 1194 1194 1195 1214 1232 1233 1234 1260 1260 1261 1323 1323 

^^^^ ^^^^ ^^^^ ^^^^ ^^^^ ^^^^ ^^^2 ^^^^ 2679 2694 2709 2806 

2864 3030 3031 3032 3135 3144 3537 3703 3783 3805 3514 3828 



1335 

2814 

R11 0000 OOOB 87- 1787 1787 1789 1840 2159 2206 2217 2239 2248 2257 2233 2294 

2296 2332 2353 2389 2395 2397 2428 2431 2459 2477 2494 2502 3151 

3191 3215 3440 3440 3444 3447 3450 3451 3453 3488 350£ 3515 3562 

3571 1577 3645 3648 3652 3654 3656 4109 4266 4277 4304 

R12 0000 OOOC 33* 253 268 277 23=. 432 435 445 462 499 753 1635 1636 

1705 1815 1820 1923 1923 2014 2055 2290 2391 2429 2432 2495 

2553 2563 2681 2596 2701 2706 2712 2817 2827 2867 2336 3054 

3153 3193 3217 3441 3445 3448 34M9 3452 34E3 3493 3497 3499 

3524 3530 3531 3573 3583 4305 4356 43S4 4421 4026 4429 4432 



1680 
1704 
2503 
3073 
3511 
4439 4438 4446 4447 



2147 2181 2194 2220 2273 2292 2301 2319 2328 2356 2370 2377 

2393 2400 2435 2473 2480 2573 2578 26B4 2690 2703 2319 2873 

2936 3029 3051 3057 3061 3068 3070 3082 3091 3095 3097 3107 

3219 3266 3278 3330 3424 3426 3472 3507 3509 3525 3548 3549 

3712 3724 3726 3723 3816 3373 3395 3926 3943 3950 3981 3991 

4062 4065 4080 4125 4145 4158 4175 4211 4234 4243 4253 4264 



813 0000 OOOD 89* 1770 1772 1776 1829 1844 1908 1937 1947 2013 2036 2042 2049 

2068 
2381 
2932 
3109 
3641 

4000 

4275 4236 4298 4336 4369 4391 4394 4410 4412 

F14 0000 OOOE 93* 307 343 433 436 438 460 465 469 775 773 784 1277 

1297 1300 1316 1326 1331 1334 1336 1337 1768 1769 1771 1774 1778 

1786 1819 1824 1827 1835 1849 1852 1855 1857 1853 1861 1862 1865 

1906 1907 1909 1910 1922 1927 1932 1935 1942 1952 1955 1957 1958 

1961 1962 1965 2005 2006 2008 2009 2010 2020 2033 2044 2051 2060 

2066 2071 2072 2075 203 1 2062 2144 2145 2160 2177 2173 2193 2207 

2218 2240 2249 2258 2299 2309 2317 2333 2354 2398 2413 2416 2419 

2460 2478 2542 2543 2545 2548 2549 2562 2566 2567 2571 2533 2584 

2594 2596 2597 2606 2607 2657 2658 2660 2664 2687 2638 2689 2692 

2698 2700 2708 2711 2714 2791 2794 2795 2802 2823 2852 2853 2862 

2863 2871 2882 2940 3027 3023 3035 3036 3037 3039 3053 3052 3064 

3077 3030 3103 3105 3117 3127 3143 3157 3162 3163 3164 3174 3184 

3197 3202 3224 3242 3254 3260 3268 3277 3287 3315 3316 3345 3362 

3400 3408 3410 3411 3429 3432 3455 3716 3770 3793 3850 3879 3881 

3896 3946 3952 3974 3975 4015 4105 4112 4236 4245 4267 4273 4283 

4320 4350 4373 4393 4395 

P15 0000 OOOF 92* 239 259 433 444 48 5 485 436 752 753 754 756 764 

-,.i^ a^-, BRQ QQ5 037 1273 1298 1301 1317 1327 1332 1338 1378 

1563 1590 1590 1621 1621 1713 179 3 1794 1806 1807 2033 2157 2158 

2223 2270 2286 2237 2298 2239 2290 2291 2363 2367 2383 2339 2390 

2391 2392 2469 2550 2551 2552 2553 2554 2535 2586 2587 2588 2589 



COMMON HAGSETIC TAPE TEST PBOGBAM 06-172R03A13 PAGE 111 13:07:45 OB/16/75 
CHKSt;H/B17 POUCHES 

2668 2669 2670 2682 2707 2713 2720 2723 272U 2726 2728 2730 2796 

2797 2798 2799 2300 2808 2809 2810 2811 29ti3 28511 2855 2856 2857 

2858 2876 2339 2390 2891 2892 2905 2907 2925 2928 2930 293« 293^ 

29«6 3138 31119 3150 3151 3152 3153 315H 3166 3l89 3190 3191 3192 

IIU Ull IIU l^^"* ^215 3216 3217 3213 3233 323U 3262 3271 3290 

3335 3336 3337 3338 3339 33*3 331»1 33H2 33u3 33«14 3378 3381 314I3 

3031 3Utt2 3iH»3 3iti*H 3«lt5 3im6 3504 3505 3505 3503 3511 3512 3569 

3570 3571 3572 3573 357lt 3578 3614 3667 3672 3689 3690 3691 ^692 

Inll ^.tV ^*" ^^^* ^^" 3''°^ "02 3703 3704 3705 3706 3710 3721 

3733 3739 3744 3745 3758 3759 3760 3762 3763 3764 3765 3767 3769 

3769 3787 3788 3739 3790 3804 3305 3908 3803 3811 3332 3833 3334 

3835 3336 3838 3839 3840 38l»5 3847 3848 389C 3893 3925 3945 3951 

3982 3987 3996 4004 4005 4006 4007 4008 4013 4015 4017 4019 4019 

0020 4023 «024 4025 4026 4027 4023 4029 4033 4031 4064 4076 4079 

0104 4106 0111 0137 4102 0169 0173 0203 020^ 4222 4250 0315 0020 

0023 0025 4028 4031 0437 4400 0051 4570 4531 4594 4601 

73* 102 122 128 177 178 190 181 1j7 139 198 203 205 

207 208 212 213 210 221 222 223 220 231 231 232 206 

207 300 305 309 309 310 312 313 319 322 304 351 389 

393 395 400 016 417 520 527 528 535 537 538 539 500 

502 500 505 554 555 555 602 603 6D5 608 609 619 607 

651 652 657 663 668 676 631 682 73f 715 726 730 740 

703 793 805 806 808 810 310 329 333 803 969 970 973 

--- — ' .-«^ ...^ lit* till iiio \ \ i. i MJU 11j2 lljj 

1100 1101 1106 1153 1150 1155 1159 1167 1171 1172 1183 1189 1196 

1210 1211 1213 1219 1272 1283 1284 1292 -Ji93 1295 1303 1311 1312 

1310 1320 1325 1329 1346 1350 1351 1353 1355 1356 1357 1358 1359 

1361 1362 1364 1367 1368 1371 1372 1373 1563 1792 1800 1913 2011 

2090 2498 2902 2922 2926 3033 3170 3200 3200 3301 3306 3307 3080 

3558 3612 3621 3651 3736 3735 3700 3741 3329 3829 3834 3841 3343 

3985 3985 4009 0010 0021 0021 0025 0032 403. 4030 4036 4036 4127 

0129 0160 4162 0190 4192 4313 4349 4555 456u 4566 4590 

200 203 219 22: 232 285 285 2^9 



R2 0000 0002 73* 102 122 128 177 



B3 0000 0:03 79* 107 108 109 199 



293 295 306 319 340 392 396 466 47:- 634 637 732 73S 

785 794 822 823 824 826 931 355 957 1064 1059 1073 1076 

1077 1030 1091 1032 1033 1093 1094 1137 1 1 :; 5 1114 1113 1124 1130 

1133 1134 1141 1146 1147 1150 II50 1138 1197 1564 1783 1841 1914 

2012 2023 2325 2027 2048 2491 2499 2925 2894 2890 2896 3030 3171 

3201 3201 3485 3559 3615 4129 0161 4191 43I6 4340 4301 0344 434- 

4345 4307 4556 0576 0535 0602 0503 

^^ °°°^ °^<"' «0* "1 'l^ 113 115 123 125 226 227 ?23 229 229 249 

"1 260 262 263 265 272 270 278 31J 315 320 321 32« 

W. Ill ^^^ ^" "^ ^37 338 339 340 359 360 370 379 

Vll nnl Ml l\° "'^ "" "' "3" ""^ "I "^ "'* 766 

770 776 809 310 811 812 912 825 326 327 929 828 32Q 

^51 851 952 353 850 365 867 371 873 880 920 930 931 

936 933 939 907 948 1035 1037 1378 107i 1085 1092 1104 1105 

106 1132 1100 1143 1103 1156 1162 1167 1172 1562 1555 1567 1757 

1905 2004 2143 2159 2170 2172 2173 2195 2195 2198 2199 2092 2500 

2541 2656 2790 3026 3136 3137 3141 3142 3173 3175 3301 3302 3^04 

3305 3356 3087 3551 3647 3735 3830 3973 3975 3977 3979 43';5 ^'^^1 

0559 0561 0565 4565 4566 0533 4587 

" °°°° °°" 81* 113 115 116 116 113 119 120 123 125 131 238 297 



COHaO» HJIGHETIC TAPE TEST PBOGHAH 06-172R03A13 



PAGE 112 13:07:<»5 08/16/79 



CK!rsni'/!117 POUCHES 









289 


317 


317 


318 


330 


330 


342 


342 


345 


356 


353 


358 


359 








361 


362 


367 


370 


37 3 


373 


374 


376 


377 


382 


385 


400 


457 








461 


547 


574 


592 


628 


629 


632 


640 


697 


708 


713 


732 


745 








809 


865 


869 


955 


1095 


1096 


1097 


1098 


1138 


1199 


1207 


1207 


1216 








1216 


1217 


1221 


1223 


1231 


1234 


1264 


1265 


1643 


1646 


1643 


1652 


1654 








1790 


1780 


1781 


1817 


1817 


1818 


1822 


1322 


1823 


1825 


1937 


1837 


1838 








1917 


1918 


1920 


1921 


1925 


1925 


1926 


1330 


1930 


1931 


1933 


1944 


1944 








19a5 


2016 


2016 


2017 


2053 


2053 


2054 


20 58 


2058 


2059 


2149 


2153 


2154 








2155 


2165 


2166 


2170 


2173 


2174 


2175 


2176 


2182 


2184 


2139 


2190 


2196 








2199 


2203 


2204 


2212 


2213 


2234 


2235 


2246 


2247 


2255 


2255 


2269 


2274 








2281 


2282 


2284 


2285 


2321 


2326 


2327 


23^45 


2347 


2372 


2352 


2383 


2385 








2395 


2414 


2417 


2422 


2457 


2458 


2471 


2472 


2493 


2501 


2b»i 


2546 


2547 








2563 


2560 


2561 


2569 


2 57 5 


2580 


2581 


2514 


2614 


2615 


2676 


2677 


2723 








279 D 


2782 


2793 


2735 


2787 


2788 


2792 


27:|J 


2807 


2810 


2934 


2850 


2851 








2859 


2869 


2869 


2870 


2375 


2877 


2878 


2979 


2897 


2898 


2306 


2908 


2909 








2909 


2910 


2911 


2912 


2914 


2915 


2916 


2917 


2924 


2931 


301*1 


3044 


3046 








30«? 


3059 


3066 


3075 


3078 


3087 


3093 


3123 


3125 


3128 


3129 


3130 


3130 








313* 


3135 


3139 


3140 


3142 


3165 


3221 


3222 


3232 


3261 


3338 


3303 


3329 








3323 


3331 


3331 


3332 


3333 


3334 


3360 


3 3 60 


3361 


3 374 


3U31 


3401 


3402 








3<i76 


3477 


3550 


3551 


3601 


3625 


3627 


3628 


3632 


3633 


36 35 


3036 


3638 








3639 


3696 


3698 


3711 


3722 


3723 


3725 


3727 


3729 


3734 


3760 


3761 


3762 








3765 


3766 


3767 


3785 


3786 


3789 


3807 


3907 


3810 


3813 


36 14 


3835 


3894 








3913 


3915 


3917 


3919 


3920 


3922 


3923 


3924 


3938 


3939 


3941 


3942 


39M7 








39117 


3948 


3949 


3980 


3993 


3994 


4002 


•003 


4007 


4019 


4029 


4075 


4077 








«»077 


4078 


4103 


4108 


4188 


4188 


4189 


4220 


4221 


4224 


4224 


4225 


4333 








«33« 


4334 


4335 


4337 


4353 


4353 


4354 


4367 


4368 


4441 


4441 


4558 


4559 








1(536 


4587 


4588 






















R5HEX 


0000 


10DA 


36S 


371 


383 


386 


402 


633 


541 


804* 


3733 


3744 


3839 






R5X 


0000 


10E6 


809* 


815 
























B5IA 


0000 


10F« 


813* 


























R5XB 


0000 


10FC 


807 


816* 
























R6 


0000 


0006 


92* 


110 


120 


127 


20 8 


209 


210 


210 


286 


287 


294 


388 


391 








403 


404 


406 


406 


440 


443 


461 


463 


468 


751 


751 


761 


764 








770 


783 


786 


1217 


1219 


1223 


1225 


1228 


1237 


1238 


1240 


1250 


1251 








1258 


1259 


1382 


1385 


1387 


1389 


1393 


1394 


1398 


1401 


1570 


1571 


1571 








1573 


1574 


1574 


1576 


1577 


1579 


1581 


158 1 


158 3 


1584 


1586 


1538 


1608 








1611 


1613 


1623 


1627 


4419 


4422 


4424 


4427 


4430 


4433 


4436 


4439 


4439 








imn3 


4446 


4448 


4449 


4450 


4570 


4571 


4572 


4577 


4578 


4588 


4 591 


4603 








<t60« 


























R7 


0000 


0007 


8 3* 


129 


130 


131 


458 


466 


473 


13'!0 


138Q 


1381 


1389 


1390 


1397 








moo 


1610 


1611 


1613 


1614 


1615 


1624 


1633 


1638 










R8 


0000 


0008 


34* 


121 


122 


127 


128 


459 


470 


474 


1010 


1625 


1629 


1798 


1788 








1792 


1794 


1795 


179S 


1798 


1799 


1800 


1302 


1805 


1807 


1803 


1809 


1810 








1812 


1813 


1814 


1328 


1339 


1839 


1916 


1917 


1936 


2035 


20 3 5 


2040 


2041 








2041 


2046 


2279 


2318 


2348 


2369 


2379 


2420 


2557 


2572 


2655 


2665 


2667 








2669 


2671 


2673 


2674 


2675 


2680 


2680 


26 3 3 


2695 


2695 


2699 


2710 


2710 








2715 


2804 


2809 


2812 


2816 


2826 


2826 


2966 


2872 


2885 


2885 


2838 


2893 








2895 


2900 


2913 


3043 


3043 


3094 


3085 


3144 


3155 


3168 


3182 


3195 


3198 








3688 


3688 


3692 


3695 


3700 


3746 


3784 


3784 


3785 


3788 


3791 


3809 


3810 












■%n -^ A 


■1 r> *• t> 


tno 1, 


■ina li 


39S6 


3?S9 


3996 


3997 


400 6 


4012 


4018 








3312 


33 3 1 


JO J ! 


JO ■• ■• 


J 7a T 


-I 7 1^ T 






















4022 


4028 


4131 


4131 


4139 


4164 


4164 


4171 


4194 


4194 


4205 


4 36 6 


436f 








4331 


4382 


4604 






















R9 


0000 


0009 


as* 


759 


768 


941 


942 


944 


945 


947 


1033 


1169 


1170 


1178 


1530 



COMHOfi HJIGNETIC TAPE TEST PROGRAM 06-172503A 1 3 



PAGE 113 ^3•.0^•.liS 08/16/73 



CHKSUH/B17 PUNCHES 



RABEKD 


0000 


2D52 


HADDRS 


0000 


3630 


8B'JFF 


0000 


3A3A 


SCONLY 


0000 


26C2 


SCOVB 


0000 


1CA0 


RC0V81 


0000 


1D76 


aC0VR2 


0000 


1E80 


RC0yR6 


0000 


2788 


RDBLK 


0000 


32F0 


RDBHD 


0000 


2D2C 


PDCHARO 


0000 


0B26 


BDCHR 


0000 


0B18 


SDCHR1 


0000 


OBtH 


RDCON 


0000 


29E8 


SDCONB 


0000 


2A10 


RDCOSS 


0000 


2AU8 


BDcac 


0000 


18EE 


RDESD 


0000 


2226 


RDEBO 


0000 


1CB0 


RDER1 


0000 


1D8 6 


EDEH21 


0000 


1E9C 


?DEB« 


0000 


2«10 


3DE86 


0000 


2798 


RDER71 


0000 


2800 


8DFIL6 


0000 


2608 


RDFI17 


0000 


285'* 


?DON 


0000 


2872 


RDOSLY 


0000 


21A« 


SDR EC 


0000 


2CFit 


?EAD 


0000 


iHBn 


HECFIL 


0000 


1852 


RE0F01 


0000 


1B98 


KE0F21 


0000 


1E3C 


REPEAT 


0000 


1876 


FEPEATO 


0000 


1CF0 


RERD2 


0000 


1E6A 


PERDR 


0000 


1C2A 


2ERDB1 


0000 


1D18 


BEBDR21 


0000 


1E5l» 


RERDPI* 


0000 


238E 


REBDR7 


0000 


2856 


RESET 


0000 


2F0E 


RET 


0000 


OOOE 



RETOPSH 0000 11*98 
BET0PSW1 0000 1l»A6 
HETRT 0000 30itA 



1592 

1508 

2805 

3579* 

1385 

1576 

2860 

1853 

1953 

2067 

2935 

3197 

3552 

261 

259* 

266 
3126 
3224* 
3223 
1526* 
2411 
1821 
1929 
2057 
255 1» 
2887 
3074 
2886* 
3072* 
3079 
2185 
1820 
1777 
3576 
1513* 
1776* 
2049* 
1516* 
2026 
2039 
1820* 
1928* 
2056* 
2563* 
3073* 
1786 
91* 

734 
2434 
3090 
1136 
1179 
1849 



1593 

1610 
2815 
3622 
1397 
1583 
2880* 
1857* 
1957* 
2071* 
2939* 
3224 
3568* 
263* 
271 
272* 
3213* 
3231 
3240* 
2859 
2414* 
1861* 
1961* 
2078* 
2600* 
2943* 
3112* 
2913 
3089 
3081* 
2377* 
1928 
2050 
4276 
1785 
18 50 
2076 
2023 
2028* 
2045 
1863 
1963 
2061 
2568 
3081 
1922 
648 
747 
2544 
3373 
1144 
1183* 
1858 



1593 
1614 
2365 

1398 
1586 



4275* 

280 
3238 
3249 



2056 
2378 
447 7* 
1912 



2062* 



2083 
2609 

2009 
653 
1306 
2577 
4223 
1157 

1862 



1595 1596 
1617 1619 
3686 3782 



1573 
1813 



2177 
659 
1673 
2582 
440 4 
1176* 

1865 



1577 
2896 



2563 2706 

2394 2497 
4478 

2012 2048 



2030 



2548 
662 
1681 
2659 
4413 
1455 

1958 



1596 


1598 


1599 


1601 


150 3 


1603 


1605 


1606 


1626 


1734 


1911 


2021 


2179 


2556 


2661 


2678 


3806 


3827 


3983 


4129 


4162 


4192 


4300 





1579 
4532* 



2712 
2822 

2180 



2584 

664 

1833 

2686 



1584 



2827 
3071 

2555 



2664 

665 

1854 

2705 



3340 



2886 
3083 



2864 



2687 

669 
1940 
23 01 



4527* 



307 3 
3 20 5 

3034 



279 5 

6 70 

1954 

2821 



3543* 

35 20 



3240 



3267 



355? 



2853 

571 

2007 

2333 



3035 

700 

2028 

2851 



3757* 

710 720 

2168 2421 

2880 3040 



3119 3303 

1962 1965 2072 2075 2082 2567 2597 2631 



COBBOH HUGSETIC TAPE TEST PROGRAH 06-172303*13 



PAGE 11U 13:07!«5 08/16/79 



CHKSDH/HI? POUCHES 



RE¥ES 


0000 


2AB8 


RETBS1 


0000 


2ADA 


BEHD 


0000 


31182 


KEUIKD 


0000 


33FC 


EFILB 


0000 


29B6 


BFItS 


0000 


29D2 


PIHI 


0000 


1»«0 


RIHI2 


0000 


1AAU 


KLIH 


0000 


3620 


H0NLT7 


0000 


28UC 


BOPTIK 


0000 


1ACi» 


aOPTHI 


0000 


163E 


RCPTIS2 


0000 


1690 


RP 


0000 


1586 


RREC3 


0000 


21AE 


RSAV32 


0000 


3628 



RSAT- 


0000 


3F08 


RSATE1 


0000 


3F88 


8ST0RE 


0000 


1686 


RST0EE1 


0000 


16AC 


BTH01 


0000 


1F7C 


BTII02 


0000 


1FA2 


RTII03 


0000 


IFEe 


RTHOD 


0000 


200A 


RTII05 


0000 


202C 


3TH06A 


0000 


203A 


RTH07 


oooc 


2124 


BTH08 


0000 


2168 


BTH09A 


0000 


21FE 


RTH10 


0000 


22EE 


RTIIII 


0000 


3 3C0 


BTSDSS 


0000 


2273 


RTNDS.'i 


0000 


2272 


RTSDU1 


0000 


22eu 


8THD02 


0000 


22A6 


RTTCST 


0000 


3670 


RTTFAIl 


0000 


3068 


ROH 


0000 


1936 


RUHIT 


0000 


0D86 


RWCOK 


0000 


2CAC 


SWCOr!3 2 


0000 


2i;C!i 



29 «0 


3938* 
























3277* 


3282 
























3297* 


3292 


3294 






















2216 


2476 


M2U4 


4411 


4475* 


4476 
















1673 


1681 


1833 


1854 


1940 


1954 


2007 


2028 


2168 


2421 


2434 


2544 


2577 


2592 


2659 


2686 


2705 


2801 


2321 


2833 


2861 


2330 


3040 


3090 


3373 


4410' 


3189* 


























3196 


3198* 
























1600 


1602 


1607* 


1618 




















1637 


16«2* 
























1805 


2383 


2390 


2499 


2586 


2589 


.2797 


2799 


2355 


2857 


2389 


3190 


3192 


321" 


3216 


33U1 


3343 


3557 


3570 


3572 


3591 


3702 


3764 


3763 


3804 


3808 


3833 


•4523* 
























30i»7 


3070* 


3099 






















16H5 


1648 


1651* 






















1399 


1«02* 
























1385 


1388* 
























1107 


1273 


1283* 






















2330* 


2'»20 
























2285 


2291 


2387 


2392 


2550 


2554 


2 58 5 ■ 


2539 


2756 


2800 


2854 


2858 


3149 


315U 


3189 


3194 


3213 


3218 


3335 


3344 


3442 


3446 


3504 


3512 


3 56 9 


3574 


3693 


3697 


3701 


3706 


3758 


3769 


3832 


33 36 


4004 


U003 


4016 


4020 


4023 


tt030 


1525* 
























105 


791 


798 


804 


816 


821 


833 


838 


876 


883 


963 


1000 


1041 


10t7 


1085 


1242 


3482 


3495 


3498 


3503 


3517 


3526 


3556 


3568 


3579 


3737 


3739 


3986 


3988 


3995 


3997 


4541* 
















1792 


1796 


1798 


1805 


1810 


1812 


2667 


2671 


2673 


2803 


2813 


2888 


28 9 3 


2895 


3685 


3715 


378 1 


3792 


3803 


3815 


3826 


3849 


3979 


4014 


4126 


4144 


0159 


1I17« 


4187 


4210 


4299 


4302 


4308 


4309 


4310 


4311 


4312 


4542* 




1385* 


























1397* 


























2203 


2212* 
























2212 


2222* 
























2234 


22U3* 
























2ift6 


2252* 
























2255 


2261* 
























223!» 


2303 


2304* 


2492 




















2326 


2336* 
























23«6 


2358* 
























2385 


2«02 


2403* 


2500 




















21*71 


2it82* 
























4367 


«376* 
























2189 


2't«5* 
























2165 


2440* 
























2153 


2U51* 
























2ft57 


2'»63* 
























17O0 


1781 


1813 


1823 


1838 


1926 


1931 


1945 


2017 


2054 


2059 


2561 


2615 


2870 


3938 


3942 


3<4S 


4464* 


















3910 


39l»7* 
























298 


153a* 
























299 


678* 
























3620 


sezu* 
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RHMOD32 


0000 


2C76 


6WND 


0000 


32CC 


fiWHEC 


0000 


2D62 


BMREC.A 


0000 


2D92 


BWREC1 


0000 


2C8A 


BW8EC2 


0000 


2CF6 


RHSEC3 


0000 


2CF2 


3HSEL 


0000 


3306 


RMSEl,» 


0300 


33e« 


RWSEL.B 


0000 


333C 


RWSEL32 


0000 


3321* 


RtfTRH 


0000 


2DE« 


BUTfi«1 


0000 


2CDC 


SAVERTH 


0000 


3E88 


SCLOOP 


0000 


28FA 


SCOP 


0000 


311 ((8 


SCOPE 


0000 


1912 


SCRC 


0000 


18E2 


SDOHP 


0000 


18FA 


SECDEV 


0000 


26111 


SELADR 


0000 


1816 


SELCH 


0000 


0007 



SELCHK 

SELINP 

SELINT 

SEIINTI 

SELINH 

SELTST 

SE1E0F 

SFNHTN 

3ENS01 

Sf:»S02 

SENS03 

SET.RT.V 

3ETDE.V 

SET KB 

SETMOD 

SETNSIf 

SETTRK 

SETUP 

SETWRUF 

SINK 

SKFH 

SKIPF 

SKIPIST 

SKIPINT1 

SKIPR 

SfCPCOM 

SKPCO.II 

SKPFOR 



0000 
0000 
0000 
0000 
0000 

cooo 
ooao 

0000 
0030 
0000 

coco 

0000 
0000 
0000 

;oco 

0000 
0000 

ooco 

0000 
0000 
0000 
0003 

oooo 

0000 
0000 
0000 
0000 
0000 



lADd 
231E 
3350 
3390 
22FE 
1702 
2FF2 
3206 
2FK2 
2FS8 
2FEE 
135E 
1AF8 

not 

301C 
1B3t 
1P22 
13itA 
2F«a 
16D3 
33DE 
3t|<i6 
33AO 
33AA 
3«87 
2A92 
2A9A 
1E3A 



3602 


3607* 
























3164 


3260 


3316 


4243* 




















3488 


3552 


3601* 






















3613 


3615* 
























3605 


3512* 
























3644 


3647* 
























3529 


3531* 
























3174 


3202 


3242 


4298* 




















ri ? '4 *• 


























•* J 1 •• 


•ij ID* 
























4306 


4313* 
























4301 


4307* 
























3630 


3641* 
























3516 


3525* 


3578 






















3400 


3410 


4538* 














r 








3042 


3123* 
























1529 


4443* 
























1529* 


3041 


3128 






















1525* 


2785 
























1527* 


1S25 


1933 


2417 


2569 


3078 
















2833* 


2844 
























1508* 


1659 


3357 






















97* 
3609 
4303 


1653 
3610 
4304 


1660 
3611 

4305 


1661 
3615 
4307 


1652 
3616 
4338 


3311 

3618 

4 309 


3313 
3624 

f| 3 1 A 


3357 
3527 

>• :i 4 4 


3633 
3631 


3604 
3632 


3605 
3635 


3607 
3633 


3608 
4213 


4341 
1653 


4343 
1659* 


4344 


4345 


4346 


U347 


4349 


4352 


^316 


4317 


4319 


4333 


4340 


2384 


2497* 
























2495 


:S03 


4333* 






















2493 


2501 


4 3 52* 






















2283 


2439* 
























50 1 


577 


513 


1459* 




















3869 


3371 


3873* 








r 






" 








3219 
1835 


3266 
19U2 


3278 
3408 


4234 
3868* 


42ii3 


4251* 


4255 


426 a 


ii275 


4284 


4293 


4391 


4394 


1778 


2051 


2823 


2382 


3 8 73* 


















1774 


2033 


2044 


2692 


3372* 


















1052 


1053* 
























1655 


156"'* 
























216 


2-ii 


591 


1322* 




















3330 


3513* 
























1689 


1591* 
























1676 


1535* 
























913 


1352* 
























3785* 


3731 
























945 


1332 


1353 


1420* 




















5269 


^391* 
























2037 


2^27 


268 1 


4 39 2 


4 u 7 i • 


.'i'^0 
















2429 


2^32 


4366* 






















4369* 


U59 3 
























2043 


2430 


3036 


3098 


4 3 ? 5 


4 U 13 * 
















3124 


?265* 


3286 


3296 




















3263* 


3273 


3275 






















2036* 


204 3 

























COHBON BAGIIETIC TUPE TtST PROGFAB 06-172H03A13 



PUCE 116 13:07:«5 08/16/79 
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SKPFHD 


0000 


1E0B 


SKPBlfS 


0000 


1F,20 


SKBV 


0000 


3 3E8 


SLCHIST 


0000 


28F6 


SPACES 


0000 


2EF,8 


SOK*SK 


0000 


3MR6 


ST 


0000 


OABO 


STA03 


0000 


IFEtt 


STAOU 


0000 


2016 


STAOS 


0000 


2060 


STA05A 


0000 


205C 


STA06 


0000 


20AH 


STA06A 


0000 


20EA 


STA07 


0000 


213C 


STA08 


0000 


2190 


STA09 


0000 


21E8 


STA11 


0000 


33D2 


STAEBR 


OOQO 


1FH2 


STAERP1 


0000 


2038 


STAMSG 


0000 


176U 


START 


0000 


0A66 


STABT1 


0000 


0A30 


STAHT2 


0000 


0AU6 


START3 


0000 


0A5E 


STARTt 


0000 


0Aft2 


STAT 


0000 


0005 



0000 1FAE 
0000 20E2 
0000 2188 
0000 221E 
0000 1FBA 
0000 3«7E 
0000 3614 
0000 2C0A 
0000 2C20 
0000 1DD8 
0000 23BC 
0000 19FC 
0000 1A2E 
0000 1A5A 



STEB02 

STEB06* 

STER08 

STER09A 

STERR2 

STOP 

ST0P2 

SWAP 

S«P1 

TAPEBD 

TAPENDO 

TEIAST 

TELASTO 

TELAST1 

TEnP 

TEST 0000 17B6 

TFSTO 0000 1B7« 

TE5T01 0000 1B7C 



2031 
201I2* 
3277 
3113* 
3737* 
3135 
192 
2266* 
225"b* 
2263 
i292 
2237* 
2315 
2339 
2357 
239S* 
U375 
222^* 
;2»5 
713 
157 
135 
133 
139 
1»3 
95* 
22«* 
2314 
2«08 
2831 
3293 
3291 
3*96 
36S5 
• 200 
2225* 
2313 
236» 
2H09 
2228* 
1662 
3607 
2700 
3»»7* 
2019* 
2575* 
1575 
1585 
1597 
an ^ 

306 
153;* 

1767 



2035* 
201*6 
3287 
3139 
3742 
14496* 
187* 



227«* 
2251 
2M36 
2318* 
23HD 
2366 
2504 
4378 
226fl 
2254 
1482* 
197* 
175* 
183* 
192* 
194* 
1711 
2252 
2336 
2410 
29 4 3 
3246 
3293 
3518 
3874 
4219 
2484 
2316* 
2367* 
2412* 
2447 
3313 
3631 
2371 
3454 
2070 
2595 
1582 
1591 
1617* 
324 
425 
1767* 
1769* 



2047 
4394* 



2260 



2346* 
2369* 

4381* 

2342 

2264* 



192 
194 



1830 
2253 
2337 
2446 
2944 
3248 
3311 
3520 
3876 
4251 



3603 
4307 

3440* 



1596* 
16Q1* 



334 
452 



2273' 



4380 



1331 
2261 
2339 
2451 
3112 
3255 
3405 
3522 
3878 
4252 



3618 
4343 



337 

454 



1938 
2262 
2358 
2452 
3113 
3258 
3406 
3527 
4110 
4317 



3624 
4519* 



339 
473 



2029 
2264 
2359 
2463 
3115 
3269 
3427 
3528 
4122 
4376 



3722 
474 



20 30 
2267 
2361 
2454 
3158 
3272 
3428 
3580 
4124 
4377 



2078 
2295 
2363 
2482 
3160 
3274 
3448 
3616 
0133 
4403 



2079 
2302 
2 36 5 
2483 
3176 
3279 
3450 
3619 
4135 



2222 
2304 
2401 
2600 
3 1 7 (J 
3281 
3473 
3642 
4156 



2223 
2305 
2003 
2603 
3225 
3294 
3«74 
364 3 
4166 



2226 
2307 
2404 
2610 
3228 
3285 
3492 
3649 
4196 



2243 
2312 
2406 
2829 
3230 
3288 
3494 
3653 
4198 



421S 4303 4319 4339 4352 4471* 4472 



3729 
483 



4533* 
494 



530 



533 



1500* 
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CHKSUH/H17 PHMCHEB 



TEST1 


0000 


1CCC 


TEST11 


0000 


1CD« 


TEST2 


0000 


1CA2 


TEST21 


0000 


1DAA 


TEST3 


0000 


1EB6 


TEST31 


0000 


1EBE 


TESTi* 


0000 


233E 


TESTU1 


0000 


23«6 


TEST5 


0000 


2i»ac 


TESTS 1 


0000 


2II5U 


TEST6 


oooo 


255A 


TEST61 


0000 


2582 


TEST62 


0000 


26>t4 


TEST63 


0000 


2656 


TEST7 


0000 


27AA 


rEST71 


0000 


27B2 


lESTAA 


0000 


1A6E 


TESTAAO 


0000 


19CE 


TESTAA1 


0000 


1A10 


TESTA A 2 


0000 


19CII 


TESTA B 


0000 


19E4 


TESTAB1 


oooo 


lAttlt 


TESTOP 


0000 


0D3» 


•proTC 


oooo 


1956 


TIME 


oooo 


0A1E 


TIHEOtfT 


oooo 


319A 


TIHER 


oooo 


10C0 


TIHYAL 


oooo 


191E 


TIHXT 


oooo 


10D8 


TITLE 


oooo 


1978 


TOTAL 


oooo 


1708 


TOTERF 


oooo 


170A 


TOTBSG 


oooo 


17a2 


TRACK 


oooo 


18U6 


TRACKS 


oooo 


3U12 


TRlfDOM 


oooo 


2230 


TRTHD 


oooo 


219C 


ISA 


oooo 


2B70 


TSB 


oooo 


2360 


TSLOHGA 


oooo 


285'? 


TSLONGB 


oooo 


2B68 


TSTBRK 


oooo 


126A 


TSTBSK1 


oooo 


12BC 


TSTBBK2 


oooo 


12C1* 


T3T8HK3 


oooo 


12D0 


TSTBRKM 


oooo 


12A2 


TSTBRK5 


oooo 


128A 


TSTBRK5A 


oooo 


i2ac 


TSTDO 


oooo 


12DE 


T3TD01 


oooo 


12FE 


TSTEND 


oooo 


0E60 



1539 


1905* 






















1905 


1907* 






















1539 


2004* 






















2004 


2006* 






















1539 


2143* 






















21't3 


2145* 






















15U0 


2541* 






















25«1 


2543* 






















15l»0 


2656* 






















2656 


2658* 






















15i»0 


2780* 






















2792* 


2841 






















2835 


2838 


2845* 




















2790 


2846 


2850* 




















i5ao 


3026* 






















3026 


3028* 






















159a 


1623* 






















1573* 
























1572 


1578 


1592* 




















1570* 
























1569 


1579* 






















160H 


1608* 






















H26 


449* 






















556 


1539* 






















16U* 


794 


1567 


4128 


4161 
















2160 


2207 


2218 


2240 


2249 


2253 


2299 


2333 


2354 


2398 


2460 


2478 


«350 


4373 






















791* 


797 


1238 


4106 


















1530* 


1560 






















799* 


1240 






















238 


1544* 






















507 


599 


601 


632 


1462* 
















503 


604 


640 


686 


539 


1463* 














628 


1479* 






















1512* 


1635 


2782 




















1512 


4422* 






















2l»15 


2417* 






















2362 


2372* 


2431 


2485 


















3342* 
























3338* 
























3336* 
























3340* 
























415 


546 


570 


588 


375 


963* 


2158 


28 11 


3271 


3290 


3689 


3790 


3840 


3925 


3945 


39 51 


3932 


4031 


4079 


4104 


4137 


4169 


4203 


4254 


983 


992* 






















976 


991 


995* 




















968 


985 


990 


998* 


















971 


981* 






















972* 


980 






















974* 
























58 4 


623 


679 


839 


894 


911 


1006* 












1011 


1014 


1017* 




















562* 


2739 


3375 


3377 



















4102* 



3311 
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TSTIBIT 


0000 


2B36 


TSTHOD 


COOO 


J026 


TSTHSG 


0000 


172C 


TST0P1 


0000 


ODMC 


TST0P2 


0000 


0D5« 


rST0P3 


0000 


0C6A 


TST0P4 


0000 


ODIU 


TSTSUP 


0000 


2B7E 


TTTGET 


0000 


1326 


UNARI 


0000 


1032 


UKA8lf1 


0000 


lO^i* 


VARFIL 


0000 


1CF2 


VABREC 


0000 


iCFa 


W1EXIT 


0000 


329A 


H2EXIT 


0000 


3206 


W3EXir 


0000 


3246 


MABEND 


0000 


2CC2 


UADOBS 


0000 


362C 


HAITI 


0000 


32i»C 


WAIT2 


0000 


31EE 


WAIT3 


0000 


320C 


UASOU 


0000 


170i» 


WASDU1 


0000 


1706 


HBurr 


0000 


363A 


HC0II7 


0000 


2816 


WDATA 


COOO 


3a8C 


HEOF 


COOO 


3«8B 


HEOr02 


0000 


1C«A 


BE0F12 


0000 


1D38 


BEOT 


0000 


2C78 


HE0r7 


0000 


28C8 


HER51 


0000 


2512 


WEBLS 


0000 


2126 


HFILB 


0000 


295A 


HFILS 


0000 


2986 


HLIH 


0000 


3618 


WLBS 


0000 


3176 


HREC3 


0000 


206A 


HFITE 


0000 


3a85 


HBTBLK 


0000 


32E<* 


HRTBHD 


0000 


209 4 


HRTEND 


0000 


20EE 


WBTERO 


0000 


1C8E 


HBTEB1 


0000 


1060 


«RTEfi2 


0000 


1E6E 


HSTERU 


0000 


23Fe 


WRTERS1 


0000 


252E 


WRTER52 


0000 


2501 



1769 


1907 


2006 


21*5 


25*3 


2658 


279* 


2952 


3029 


3327* 








lettt 


1947 


2*35 


2578 


3091 


3917* 
















5'»7 


1l»73* 
























«t50 


«t57* 
























ueo* 


l»72 
























net 


1463* 
























U61 


1171* 
























1763 


190-; 


2005 


21** 


25*2 


2657 


2791 


3027 


3356* 










1035* 


























U65 


U69 


782* 






















783* 


787 
























1916* 


191*6 
























1917* 


1936 
























11199 


'«210* 
























«136 


1»1IH»* 
























1168 


i«17i«* 
























3517* 


3623 
























1387 


1UO0 


1*01 


1580 


1595 


1599 


1606 


3336 


«5i6* 










1770 


190S 


21U7 


2181 


2220 


2*80 


3029 


*187* 


*iJlJ 


**12 








1772 


1776 


1929 


1937 


2019 


2035 


20*2 


20*9 


2CS3 


219* 


2273 


2292 


2319 


2328 


23<t9 


2370 


2377 


2393 


2*73 


2573 


268* 


2670 


2703 


2819 


2873 


2936 


3051 


3057 


3061 


3068 


3070 


3082 


3095 


3097 


3107 


3109 


3*2* 


3*72 


35*9 


39a3 


4122* 


«336 


U369 




















2301 


2356 


2*00 


3*26 


3525 


3691 


3873 


*156* 












236 


509 


598 


626 


8*1 


8*3 


852 


92* 


1*60* 










^86 


58 6 


85* 


1*61* 




















1598 


1601 


1605 


1617 


1799 


267* 


«531* 














3056* 


3106 
























1790 


18l»2 


*«85* 






















1831* 


19m 


2233 


2320 


257* 


2685 


270* 


2820 


287i| 


3058 


3110 


3*03 


4235 


itHgit* 


























1829* 


1866 
























1937* 


1966 
























3075 


31*92* 
























310* 


3107* 
























2721 


2725* 
























2606* 


2613 
























3155* 


























3156 


3161 


3168* 






















1793 


2287 


2289 


2*91 


2551 


2553 


2668 


2808 


3150 


3152 


3337 


3339 


3**3 


3U83 


3505 


3508 


369* 


3759 


3763 


3787 


tt005 


*017 


*02« 


a027 


9521* 




170 3 


25<*7 


2575 


2581 


2601 


• •67* 
















2280* 


2318 
























2293 


2H89 


3170 


3*8* 


351* 


<»265 


**78* 














3157 


ll26a* 
























31(78 


3503* 
























2311 


2319* 
























1816 


1852* 
























192U 


1952* 
























2015 


2066* 
























2559 


259** 
























2697 


2720* 
























2702 


272B* 

























